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.