Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnsoup.el @ 169:15872534500d r20-3b11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b11
author cvs
date Mon, 13 Aug 2007 09:46:53 +0200
parents 360340f9fd5f
children
comparison
equal deleted inserted replaced
168:9851d5c6556e 169:15872534500d
621 (nnsoup-write-active-file) 621 (nnsoup-write-active-file)
622 ;; Write the REPLIES file. 622 ;; Write the REPLIES file.
623 (nnsoup-write-replies) 623 (nnsoup-write-replies)
624 ;; Check whether there is anything here. 624 ;; Check whether there is anything here.
625 (when (null (directory-files nnsoup-replies-directory nil "\\.MSG$")) 625 (when (null (directory-files nnsoup-replies-directory nil "\\.MSG$"))
626 (error "No files to pack.")) 626 (error "No files to pack"))
627 ;; Pack all these files into a SOUP packet. 627 ;; Pack all these files into a SOUP packet.
628 (gnus-soup-pack nnsoup-replies-directory nnsoup-packer)) 628 (gnus-soup-pack nnsoup-replies-directory nnsoup-packer))
629 629
630 (defun nnsoup-write-replies () 630 (defun nnsoup-write-replies ()
631 "Write the REPLIES file." 631 "Write the REPLIES file."