* gnus-art.el (gnus-mime-delete-part): Error message when no MIME

part under point.

* gnus-agent.el (gnus-agent-synchronize-flags): Default to nil.
(gnus-agent-regenerate-group): Using nil messages aren't valid.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2a6a7bb..491dc15 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,10 @@
 2004-05-16  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-art.el (gnus-mime-delete-part): Error message when no MIME
+       part under point.
+
        * gnus-agent.el (gnus-agent-synchronize-flags): Default to nil. 
+       (gnus-agent-regenerate-group): Using nil messages aren't valid. 
 
 2004-05-15  Teodor Zlatanov  <tzz@lifelogs.com>
 

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 3dc2bd5..2366306 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -3764,7 +3764,7 @@ entry of article %s deleted." l1))
        (when regenerated
            (gnus-agent-update-files-total-fetched-for group nil)))
 
-      (gnus-message 5 nil)
+      (gnus-message 5 "")
       regenerated)))
 
 ;;;###autoload

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 6fa0e1d..9ddb19f 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -4046,6 +4046,8 @@ Deleting parts may malfunction or destroy the article; continue? ")
            (or (mail-content-type-get (mm-handle-disposition data) 'filename)
                none))
           (type (mm-handle-media-type data)))
+      (unless data
+       (error "No MIME part under point"))
       (with-current-buffer (mm-handle-buffer data)
        (let ((bsize (format "%s" (buffer-size))))
          (erase-buffer)