Update docs for `customize-mode'

[gnu-emacs] / lisp / mail / rmailsort.el

diff --git a/lisp/mail/rmailsort.el b/lisp/mail/rmailsort.el
index 38e24295e8ff2d3cfd684b98f676b3e4efd3c073..1eb60c2d547b1ef8e9ebed12c19a00e93e31cae4 100644 (file)
--- a/lisp/mail/rmailsort.el
+++ b/lisp/mail/rmailsort.el
@@ -1,10 +1,10 @@
 ;;; rmailsort.el --- Rmail: sort messages
 
-;; Copyright (C) 1990, 1993, 1994, 2001, 2002, 2003, 2004, 2005, 2006,
-;;   2007, 2008, 2009, 2010, 2011  Free Software Foundation, Inc.
+;; Copyright (C) 1990, 1993-1994, 2001-2016 Free Software Foundation,
+;; Inc.
 
 ;; Author: Masanobu UMEDA <umerin@mse.kyutech.ac.jp>
-;; Maintainer: FSF
+;; Maintainer: emacs-devel@gnu.org
 ;; Keywords: mail
 ;; Package: rmail
 
@@ -88,7 +88,7 @@ If prefix argument REVERSE is non-nil, sorts in reverse order."
   "Sort messages of current Rmail buffer by other correspondent.
 This uses either the \"From\", \"Sender\", \"To\", or
 \"Apparently-To\" header, downcased.  Uses the first header not
-excluded by `rmail-dont-reply-to-names'.  If prefix argument
+excluded by `mail-dont-reply-to-names'.  If prefix argument
 REVERSE is non-nil, sorts in reverse order."
   (interactive "P")
   (rmail-sort-messages reverse
@@ -99,13 +99,12 @@ REVERSE is non-nil, sorts in reverse order."
                           '("From" "Sender" "To" "Apparently-To"))))))
 
 (defun rmail-select-correspondent (msg fields)
-  "Find the first header not excluded by `rmail-dont-reply-to-names'.
+  "Find the first header not excluded by `mail-dont-reply-to-names'.
 MSG is a message number.  FIELDS is a list of header names."
   (let ((ans ""))
     (while (and fields (string= ans ""))
       (setq ans
-           ;; NB despite the name, this lives in mail-utils.el.
-           (rmail-dont-reply-to
+           (mail-dont-reply-to
             (mail-strip-quoted-names
              (or (rmail-get-header (car fields) msg) ""))))
       (setq fields (cdr fields)))