Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/gnus/nnmail.el	Mon Aug 13 09:36:20 2007 +0200
+++ b/lisp/gnus/nnmail.el	Mon Aug 13 09:37:19 2007 +0200
@@ -1082,7 +1082,10 @@
 	;; See whether the split methods returned `junk'.
 	(if (equal group-art '(junk))
 	    nil
-	  (nreverse (delq 'junk group-art)))))))
+	  ;; The article may be "cross-posted" to `junk'.  What
+	  ;; to do?  Just remove the `junk' spec.  Don't really
+	  ;; see anything else to do...
+	  (nreverse (delq (assq 'junk group-art) group-art)))))))
 
 (defun nnmail-insert-lines ()
   "Insert how many lines there are in the body of the mail.