Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnmail.el @ 151:59463afc5666 r20-3b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b2
author cvs
date Mon, 13 Aug 2007 09:37:19 +0200
parents 585fb297b004
children 25f70ba0133c
comparison
equal deleted inserted replaced
150:8ebb1c0f0f6f 151:59463afc5666
1080 (list (cons (car method) 1080 (list (cons (car method)
1081 (funcall func (car method))))))))) 1081 (funcall func (car method)))))))))
1082 ;; See whether the split methods returned `junk'. 1082 ;; See whether the split methods returned `junk'.
1083 (if (equal group-art '(junk)) 1083 (if (equal group-art '(junk))
1084 nil 1084 nil
1085 (nreverse (delq 'junk group-art))))))) 1085 ;; The article may be "cross-posted" to `junk'. What
1086 ;; to do? Just remove the `junk' spec. Don't really
1087 ;; see anything else to do...
1088 (nreverse (delq (assq 'junk group-art) group-art)))))))
1086 1089
1087 (defun nnmail-insert-lines () 1090 (defun nnmail-insert-lines ()
1088 "Insert how many lines there are in the body of the mail. 1091 "Insert how many lines there are in the body of the mail.
1089 Return the number of characters in the body." 1092 Return the number of characters in the body."
1090 (let (lines chars) 1093 (let (lines chars)