X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fnnml.el;h=e47448ce3e54b6efe0af3584aba6fd82c51db830;hb=134f4539c8a8121635c797b3a9de51861d7638aa;hp=d4a2a58eb5826e550eca7fac8e2386f4f2da81cd;hpb=4e82d566924d807ea0927aa382f7f875e14f33be;p=gnus diff --git a/lisp/nnml.el b/lisp/nnml.el index d4a2a58eb..e47448ce3 100644 --- a/lisp/nnml.el +++ b/lisp/nnml.el @@ -264,8 +264,7 @@ all. This may very well take some time.") (save-excursion (nnmail-find-file nnml-newsgroups-file))) -(deffoo nnml-request-expire-articles (articles group - &optional server force) +(deffoo nnml-request-expire-articles (articles group &optional server force) (nnml-possibly-change-directory group server) (let ((active-articles (nnheader-directory-articles nnml-current-directory)) @@ -591,7 +590,7 @@ all. This may very well take some time.") (let ((file (concat (nnmail-group-pathname (caar ga) nnml-directory) (int-to-string (cdar ga))))) -z (if first + (if first ;; It was already saved, so we just make a hard link. (funcall nnmail-crosspost-link-function first file t) ;; Save the article.