Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnmail.el @ 42:8b8b7f3559a2 r19-15b104

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b104
author cvs
date Mon, 13 Aug 2007 08:54:51 +0200
parents 1a767b41a199
children 8d2a9b52c682
comparison
equal deleted inserted replaced
41:5d6df4963a99 42:8b8b7f3559a2
391 ;; Sigh! 391 ;; Sigh!
392 :type 'sexp) 392 :type 'sexp)
393 393
394 (defcustom nnmail-split-abbrev-alist 394 (defcustom nnmail-split-abbrev-alist
395 '((any . "from\\|to\\|cc\\|sender\\|apparently-to\\|resent-from\\|resent-to\\|resent-cc") 395 '((any . "from\\|to\\|cc\\|sender\\|apparently-to\\|resent-from\\|resent-to\\|resent-cc")
396 (mail . "mailer-daemon\\|postmaster\\|uucp")) 396 (mail . "mailer-daemon\\|postmaster\\|uucp")
397 (to . "to\\|cc\\|apparently-to\\|resent-to\\|resent-cc")
398 (from . "from\\|sender\\|resent-from"))
397 "Alist of abbreviations allowed in `nnmail-split-fancy'." 399 "Alist of abbreviations allowed in `nnmail-split-fancy'."
398 :group 'nnmail-split 400 :group 'nnmail-split
399 :type '(repeat (cons :format "%v" symbol regexp))) 401 :type '(repeat (cons :format "%v" symbol regexp)))
400 402
401 (defcustom nnmail-delete-incoming t 403 (defcustom nnmail-delete-incoming t
1412 (setq nnmail-cache-buffer nil) 1414 (setq nnmail-cache-buffer nil)
1413 (kill-buffer (current-buffer))))) 1415 (kill-buffer (current-buffer)))))
1414 1416
1415 (defun nnmail-cache-insert (id) 1417 (defun nnmail-cache-insert (id)
1416 (when nnmail-treat-duplicates 1418 (when nnmail-treat-duplicates
1417 (unless (gnus-buffer-live-p nnmail-cache-buffer) 1419 (unless (buffer-live-p nnmail-cache-buffer)
1418 (nnmail-cache-open)) 1420 (nnmail-cache-open))
1419 (save-excursion 1421 (save-excursion
1420 (set-buffer nnmail-cache-buffer) 1422 (set-buffer nnmail-cache-buffer)
1421 (goto-char (point-max)) 1423 (goto-char (point-max))
1422 (insert id "\n")))) 1424 (insert id "\n"))))