*** empty log message ***

[gnus] / lisp / gnus-soup.el

diff --git a/lisp/gnus-soup.el b/lisp/gnus-soup.el
index 28c16d1..07a4cff 100644 (file)
--- a/lisp/gnus-soup.el
+++ b/lisp/gnus-soup.el
@@ -165,6 +165,10 @@ move those articles instead."
   "Make a SOUP packet from the SOUP areas."
   (interactive)
   (gnus-soup-read-areas)
+  (unless (file-exists-p gnus-soup-directory)
+    (message "No such directory: %s" gnus-soup-directory))
+  (when (null (directory-files gnus-soup-directory nil "\\.MSG$"))
+    (message "No files to pack."))
   (gnus-soup-pack gnus-soup-directory gnus-soup-packer))
 
 (defun gnus-group-brew-soup (n)
@@ -468,9 +472,8 @@ file.  The vector contain three strings, [prefix name encoding]."
     (if entry
        ()
       (when (file-exists-p (concat dir gnus-soup-prefix-file))
-       (condition-case nil
-           (load (concat dir gnus-soup-prefix-file) nil t t)
-         (error nil)))
+       (ignore-errors
+         (load (concat dir gnus-soup-prefix-file) nil t t)))
       (push (setq entry (cons dir (or gnus-soup-prev-prefix 0)))
            gnus-soup-last-prefix))
     (setcdr entry (1+ (cdr entry)))