Mercurial > emacs
changeset 88190:e40931b9db5d
(rmail-auto-file): Rewrote test for "filed" using
rmail-desc-get-keywords.
author | Alex Schroeder <alex@gnu.org> |
---|---|
date | Tue, 17 Jan 2006 10:04:38 +0000 |
parents | 41d86c3e40fe |
children | ce303d6c17eb |
files | lisp/mail/rmail.el |
diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmail.el Tue Jan 17 10:03:12 2006 +0000 +++ b/lisp/mail/rmail.el Tue Jan 17 10:04:38 2006 +0000 @@ -2316,7 +2316,7 @@ (defun rmail-auto-file () "Automatically move a message into a sub-folder based on criteria. Called when a new message is displayed." - (if (or (rmail-message-labels-p rmail-current-message "filed") + (if (or (member "filed" (rmail-desc-get-keywords rmail-current-message)) (not (string= (buffer-file-name) (expand-file-name rmail-file-name)))) ;; Do nothing if it's already been filed.