X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/2699a55464f7b43171c7b0e64d095640904e9e21..868490bbe111400d4a33e0e4e0ad06e3b096a0ce:/lisp/mail/rmailsort.el diff --git a/lisp/mail/rmailsort.el b/lisp/mail/rmailsort.el index f4fd52c10c..670b81eda4 100644 --- a/lisp/mail/rmailsort.el +++ b/lisp/mail/rmailsort.el @@ -1,7 +1,7 @@ ;;; rmailsort.el --- Rmail: sort messages -;; Copyright (C) 1990, 1993, 1994, 2001, 2002, 2003, 2004, 2005, 2006, -;; 2007, 2008, 2009, 2010 Free Software Foundation, Inc. +;; Copyright (C) 1990, 1993-1994, 2001-2013 Free Software Foundation, +;; Inc. ;; Author: Masanobu UMEDA ;; Maintainer: FSF @@ -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))) @@ -255,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