Mercurial > emacs
comparison lisp/mail/rmail.el @ 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 | d33a3b2bba76 |
| children | f2fae8754f34 |
comparison
equal
deleted
inserted
replaced
| 88189:41d86c3e40fe | 88190:e40931b9db5d |
|---|---|
| 2314 | 2314 |
| 2315 ;;; mbox ready | 2315 ;;; mbox ready |
| 2316 (defun rmail-auto-file () | 2316 (defun rmail-auto-file () |
| 2317 "Automatically move a message into a sub-folder based on criteria. | 2317 "Automatically move a message into a sub-folder based on criteria. |
| 2318 Called when a new message is displayed." | 2318 Called when a new message is displayed." |
| 2319 (if (or (rmail-message-labels-p rmail-current-message "filed") | 2319 (if (or (member "filed" (rmail-desc-get-keywords rmail-current-message)) |
| 2320 (not (string= (buffer-file-name) | 2320 (not (string= (buffer-file-name) |
| 2321 (expand-file-name rmail-file-name)))) | 2321 (expand-file-name rmail-file-name)))) |
| 2322 ;; Do nothing if it's already been filed. | 2322 ;; Do nothing if it's already been filed. |
| 2323 nil | 2323 nil |
| 2324 ;; Find out some basics (common fields) | 2324 ;; Find out some basics (common fields) |