lisp/gnus/nnmail.el

34 (require 'message)
130   "Regexp that matches group names to be ignored when inserting message ids into the cache (`nnmail-cache-insert').
156 (defcustom nnmail-default-file-modes 384
192 The default value is `delete' (which says to delete the messages),
195 called in a buffer narrowed to the message in question.  The function
196 receives one argument, the name of the group the message comes from.
210 the message will be expired to a group determined by invoking
238 (defcustom nnmail-cache-accepted-message-ids nil
277 This is `add-name-to-file' by default, which means that crossposts
324   "Hook called narrowed to the headers of each message.
330 (defcustom nnmail-prepare-incoming-message-hook nil
331   "Hook called narrowed to each message."
375 (define-widget 'nnmail-lazy 'default
393   :default-get (lambda (widget)
394                  (widget-default-get
448 \(FIELD VALUE [- RESTRICT [- RESTRICT [...]]] SPLIT): If the message
457   message to be stored in one or more groups.
462   the buffer containing the message headers.  The return value FUNCTION
505 	     ;; message was really cross-posted.
527 (defcustom nnmail-message-id-cache-length 1000
535 (defcustom nnmail-message-id-cache-file "~/.nnmail-cache"
545 headers to warn the user about the duplication (this is the default);
568 (defcustom nnmail-mail-splitting-charset nil
569   "Default charset to be used when splitting incoming mail."
739 	start message-id content-length do-search end)
766 	    (setq message-id (buffer-substring (match-beginning 1)
774 	  (insert "Message-ID: " (setq message-id (nnmail-message-id))
811 	  (nnmail-check-duplication message-id func artnum-func)
818   "Put point at the beginning of the next Unix mbox message."
847   "Put point at the beginning of the current Unix mbox message."
878 	start message-id content-length end skip head-end)
904 	    (setq message-id (match-string 1))
911 	  (insert "Message-ID: " (setq message-id (nnmail-message-id)) "\n"))
930 	;; message body.  This should be either the end of the buffer, the
931 	;; message separator or a blank line followed by the separator.
959 	    (nnmail-check-duplication message-id func artnum-func)
968 	start message-id end)
991 	    (setq message-id (match-string 1))
998 	  (insert "Message-ID: " (setq message-id (nnmail-message-id)) "\n"))
1012 	    (nnmail-check-duplication message-id func artnum-func)
1021 	message-id)
1037 	(setq message-id (match-string 1))
1044       (insert "Message-ID: " (setq message-id (nnmail-message-id)) "\n"))
1050       (nnmail-check-duplication message-id func artnum-func))
1117 	  (let ((mail-parse-charset nnmail-mail-splitting-charset))
1148 		      (nnheader-message
1309   "Utility function to directly post a message to an nnmail-derived group.
1311 to actually put the message in the right group."
1313     (dolist (mbx (message-unquote-tokens
1314 		  (message-tokenize-header
1315 		   (message-fetch-field "Newsgroups") ", ")) success)
1357      ;; Junk the message.
1543 (defun nnmail-message-id ()
1544   (concat "<" (message-unique-id) "@totally-fudged-out-message-id>"))
1560 	     (get-buffer-create " *nnmail message-id cache*")))
1562       (when (file-exists-p nnmail-message-id-cache-file)
1563 	(nnheader-insert-file-contents nnmail-message-id-cache-file))
1576       (when (search-backward "\n" nil t nnmail-message-id-cache-length)
1581       (or (file-exists-p (file-name-directory nnmail-message-id-cache-file))
1582 	  (make-directory (file-name-directory nnmail-message-id-cache-file)
1585 			   nnmail-message-id-cache-file nil 'silent)
1601       ;; Store some information about the group this message is written
1638 ;; Fetch the group name corresponding to the message id stored in the
1655   "Split this message into the same group as its parent.
1658 For a message to be split, it looks for the parent message in the
1659 References or In-Reply-To header and then looks in the message id
1660 cache file (given by the variable `nnmail-message-id-cache-file') to
1661 see which group that message was put in.  This group is returned.
1664   (let* ((refstr (or (message-fetch-field "references")
1665 		     (message-fetch-field "in-reply-to")))
1696       (message-narrow-to-head)
1697       (message-fetch-field header))))
1699 (defun nnmail-check-duplication (message-id func artnum-func)
1700   (run-hooks 'nnmail-prepare-incoming-message-hook)
1701   ;; If this is a duplicate message, then we do not save it.
1702   (let* ((duplication (nnmail-cache-id-exists-p message-id))
1709 		     (funcall nnmail-treat-duplicates message-id))
1716       (re-search-forward "^message-id[ \t]*:" nil t)
1725       (nnmail-cache-insert message-id (caar group-art)))
1732 	(re-search-forward "^message-id[ \t]*:" nil t)
1735 	 "Gnus-Warning: This is a duplicate of message " message-id "\n")
1783 	  (message "Invalid value for nnmail-spool-file: `procmail'")
1808       ;; Open the message-id cache.
1813 	(nnheader-message 4 "%s: Reading incoming mail from %s..."
1831 	  (nnheader-message 4 "%s: Reading incoming mail (no new mail)...done"
1839 	(nnheader-message 4 "%s: Reading incoming mail (%d new)...done" method
1841       ;; Close the message-id cache.
1872   (let (nnmail-cache-accepted-message-ids)
1888 	 (from (or (message-fetch-field "from") ""))
1889 	 (to (or (message-fetch-field "to") ""))
1890 	 (date (message-fetch-field "date"))
1896 		      (message "%s" (error-message-string err))
1906 		 (and (string-match message-dont-reply-to-names from)
1912 			    (message-fetch-field header)
1918   "Check (and modify) the syntax of the message in the current buffer."
1920     (message-narrow-to-head)
1923 	(insert "Message-ID: " (nnmail-message-id) "\n")))))
1930     (set-file-modes filename nnmail-default-file-modes)))
1939     (message-narrow-to-head)
1944       (message-remove-header "status")
2028   "Check to see if point is within the headers of a unix mail message.