From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Sun, 16 May 2004 12:06:24 +0000 (+0000)
Subject: * gnus-art.el (gnus-mime-delete-part): Error message when no MIME
X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=653e762433a2166fdb1481b0ad71b7a4ad867586

* 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 2a6a7bb8a..491dc157d 100644
--- 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 3dc2bd530..236630639 100644
--- 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 6fa0e1d92..9ddb19fab 100644
--- 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)