]> code.delx.au - gnu-emacs/blobdiff - lisp/mail/rmailsort.el
Update docs for `customize-mode'
[gnu-emacs] / lisp / mail / rmailsort.el
index 00d0bad4af24d2089fb4edc042eea9ee5eee6198..1eb60c2d547b1ef8e9ebed12c19a00e93e31cae4 100644 (file)
@@ -1,11 +1,12 @@
 ;;; rmailsort.el --- Rmail: sort messages
 
-;; Copyright (C) 1990, 1993, 1994, 2001, 2002, 2003, 2004, 2005, 2006,
-;;   2007, 2008, 2009  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
 
 ;; This file is part of GNU Emacs.
 
@@ -87,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
@@ -98,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)))
@@ -254,5 +254,4 @@ Numeric keys are sorted numerically, all others as strings."
 ;; generated-autoload-file: "rmail.el"
 ;; End:
 
-;; arch-tag: 665da245-f6a7-4115-ad8c-ba19216988d5
 ;;; rmailsort.el ends here