Mercurial > hg > xemacs-beta

diff lisp/gnus/gnus-soup.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 fe104dbd9147
children
line wrap: on
line diff
--- a/lisp/gnus/gnus-soup.el	Mon Aug 13 09:45:48 2007 +0200
+++ b/lisp/gnus/gnus-soup.el	Mon Aug 13 09:46:53 2007 +0200
@@ -356,7 +356,7 @@
 	  (call-process shell-file-name nil nil nil shell-command-switch
 			(concat "cd " dir " ; rm " files))
 	  (gnus-message 4 "Packing...done" packer))
-      (error "Couldn't pack packet."))))
+      (error "Couldn't pack packet"))))
 
 (defun gnus-soup-parse-areas (file)
   "Parse soup area file FILE.
@@ -521,7 +521,7 @@
 	    (goto-char (point-min))
 	    (while (not (eobp))
 	      (unless (looking-at "#! *rnews +\\([0-9]+\\)")
-		(error "Bad header."))
+		(error "Bad header"))
 	      (forward-line 1)
 	      (setq beg (point)
 		    end (+ (point) (string-to-int