Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnmail.el @ 155:43dd3413c7c7 r20-3b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b4
author cvs
date Mon, 13 Aug 2007 09:39:39 +0200
parents 25f70ba0133c
children 0132846995bd
comparison
equal deleted inserted replaced
154:94141801dd7e 155:43dd3413c7c7
110 :group 'nnmail-split 110 :group 'nnmail-split
111 :type 'boolean) 111 :type 'boolean)
112 112
113 ;; Added by gord@enci.ucalgary.ca (Gordon Matzigkeit). 113 ;; Added by gord@enci.ucalgary.ca (Gordon Matzigkeit).
114 (defcustom nnmail-keep-last-article nil 114 (defcustom nnmail-keep-last-article nil
115 "If non-nil, nnmail will never delete the last expired article in a directory. 115 "If non-nil, nnmail will never delete/move a group's last article.
116 It can be marked expirable, so it will be deleted when it is no longer last.
117
116 You may need to set this variable if other programs are putting 118 You may need to set this variable if other programs are putting
117 new mail into folder numbers that Gnus has marked as expired." 119 new mail into folder numbers that Gnus has marked as expired."
118 :group 'nnmail-procmail 120 :group 'nnmail-procmail
119 :group 'nnmail-various 121 :group 'nnmail-various
120 :type 'boolean) 122 :type 'boolean)
567 (not nnmail-internal-password)) 569 (not nnmail-internal-password))
568 (setq nnmail-internal-password 570 (setq nnmail-internal-password
569 (nnmail-read-passwd 571 (nnmail-read-passwd
570 (format "Password for %s: " 572 (format "Password for %s: "
571 (substring inbox (+ popmail 3)))))) 573 (substring inbox (+ popmail 3))))))
572 (message "Getting mail from post office ...")) 574 (message "Getting mail from the post office..."))
573 (when (or (and (file-exists-p tofile) 575 (when (or (and (file-exists-p tofile)
574 (/= 0 (nnheader-file-size tofile))) 576 (/= 0 (nnheader-file-size tofile)))
575 (and (file-exists-p inbox) 577 (and (file-exists-p inbox)
576 (/= 0 (nnheader-file-size inbox)))) 578 (/= 0 (nnheader-file-size inbox))))
577 (message "Getting mail from %s..." inbox))) 579 (message "Getting mail from %s..." inbox)))
1054 '("bogus"))))) 1056 '("bogus")))))
1055 ;; The article may be "cross-posted" to `junk'. What 1057 ;; The article may be "cross-posted" to `junk'. What
1056 ;; to do? Just remove the `junk' spec. Don't really 1058 ;; to do? Just remove the `junk' spec. Don't really
1057 ;; see anything else to do... 1059 ;; see anything else to do...
1058 (let (elem) 1060 (let (elem)
1059 (while (setq elem (assq 'junk split)) 1061 (while (setq elem (car (memq 'junk split)))
1060 (setq split (delq elem split)))) 1062 (setq split (delq elem split))))
1061 (when split 1063 (when split
1062 (setq group-art 1064 (setq group-art
1063 (mapcar 1065 (mapcar
1064 (lambda (group) (cons group (funcall func group))) 1066 (lambda (group) (cons group (funcall func group)))
1091 nil 1093 nil
1092 ;; The article may be "cross-posted" to `junk'. What 1094 ;; The article may be "cross-posted" to `junk'. What
1093 ;; to do? Just remove the `junk' spec. Don't really 1095 ;; to do? Just remove the `junk' spec. Don't really
1094 ;; see anything else to do... 1096 ;; see anything else to do...
1095 (let (elem) 1097 (let (elem)
1096 (while (setq elem (assq 'junk group-art)) 1098 (while (setq elem (car (memq 'junk group-art)))
1097 (setq group-art (delq elem group-art))) 1099 (setq group-art (delq elem group-art)))
1098 (nreverse group-art))))))) 1100 (nreverse group-art)))))))
1099 1101
1100 (defun nnmail-insert-lines () 1102 (defun nnmail-insert-lines ()
1101 "Insert how many lines there are in the body of the mail. 1103 "Insert how many lines there are in the body of the mail.