Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnmail.el @ 114:8619ce7e4c50 r20-1b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b9
author cvs
date Mon, 13 Aug 2007 09:21:54 +0200
parents 48d667d6f17f
children 9f59509498e1
comparison
equal deleted inserted replaced
113:2ec2fe4a4c89 114:8619ce7e4c50
157 ((string-match \"important\" newsgroup) 'never) 157 ((string-match \"important\" newsgroup) 'never)
158 (t 7))))" 158 (t 7))))"
159 :group 'nnmail-expire 159 :group 'nnmail-expire
160 :type '(choice (const :tag "nnmail-expiry-wait" nil) 160 :type '(choice (const :tag "nnmail-expiry-wait" nil)
161 (function :format "%v" nnmail-))) 161 (function :format "%v" nnmail-)))
162
163 (defcustom nnmail-cache-accepted-message-ids nil
164 "If non-nil, put Message-IDs of Gcc'd articles into the duplicate cache."
165 :group 'nnmail
166 :type 'boolean)
162 167
163 (defcustom nnmail-spool-file 168 (defcustom nnmail-spool-file
164 (or (getenv "MAIL") 169 (or (getenv "MAIL")
165 (concat "/usr/spool/mail/" (user-login-name))) 170 (concat "/usr/spool/mail/" (user-login-name)))
166 "Where the mail backends will look for incoming mail. 171 "Where the mail backends will look for incoming mail.
851 (1- (point)) 856 (1- (point))
852 ;; This will never happen, but just to be on the safe side -- 857 ;; This will never happen, but just to be on the safe side --
853 ;; if there is no head-body delimiter, we search a bit manually. 858 ;; if there is no head-body delimiter, we search a bit manually.
854 (while (and (looking-at "From \\|[^ \t]+:") 859 (while (and (looking-at "From \\|[^ \t]+:")
855 (not (eobp))) 860 (not (eobp)))
856 (forward-line 1) 861 (forward-line 1))
857 (point)))) 862 (point)))
858 ;; Find the Message-ID header. 863 ;; Find the Message-ID header.
859 (goto-char (point-min)) 864 (goto-char (point-min))
860 (if (re-search-forward "^Message-ID[ \t]*:[ \n\t]*\\(<[^>]+>\\)" nil t) 865 (if (re-search-forward "^Message-ID[ \t]*:[ \n\t]*\\(<[^>]+>\\)" nil t)
861 (setq message-id (match-string 1)) 866 (setq message-id (match-string 1))
862 (save-excursion 867 (save-excursion
935 (1- (point)) 940 (1- (point))
936 ;; This will never happen, but just to be on the safe side -- 941 ;; This will never happen, but just to be on the safe side --
937 ;; if there is no head-body delimiter, we search a bit manually. 942 ;; if there is no head-body delimiter, we search a bit manually.
938 (while (and (looking-at "From \\|[^ \t]+:") 943 (while (and (looking-at "From \\|[^ \t]+:")
939 (not (eobp))) 944 (not (eobp)))
940 (forward-line 1) 945 (forward-line 1))
941 (point)))) 946 (point)))
942 ;; Find the Message-ID header. 947 ;; Find the Message-ID header.
943 (goto-char (point-min)) 948 (goto-char (point-min))
944 (if (re-search-forward "^Message-ID[ \t]*:[ \n\t]*\\(<[^>]+>\\)" nil t) 949 (if (re-search-forward "^Message-ID[ \t]*:[ \n\t]*\\(<[^>]+>\\)" nil t)
945 (setq message-id (match-string 1)) 950 (setq message-id (match-string 1))
946 ;; There is no Message-ID here, so we create one. 951 ;; There is no Message-ID here, so we create one.