X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fmm-partial.el;h=216340c48b93f9a13a9a8ba614dcb20b1e2fbc1d;hb=d6fc071ac11d2854744bfb90c3f9b2aff3466579;hp=d4cca04589d803d0ae27f2d5e724787c34edfaad;hpb=82bc4808fba897e43783bbd174612bc0fa465c24;p=gnus

diff --git a/lisp/mm-partial.el b/lisp/mm-partial.el
index d4cca0458..216340c48 100644
--- a/lisp/mm-partial.el
+++ b/lisp/mm-partial.el
@@ -65,7 +65,7 @@ If NO-DISPLAY is nil, display it. Otherwise, do nothing after replacing."
 	gnus-displaying-mime handles buffer)
     (unless (mm-handle-cache handle)
       (unless id
-	(error "Can not find message/partial id."))
+	(error "Can not find message/partial id"))
       (setq phandles
 	    (sort (cons handle
 			(mm-partial-find-parts
@@ -95,7 +95,7 @@ If NO-DISPLAY is nil, display it. Otherwise, do nothing after replacing."
 	  (if ntotal
 	      (if total
 		  (unless (eq total ntotal)
-		  (error "The numbers of total are different."))
+		  (error "The numbers of total are different"))
 		(setq total ntotal)))
 	  (unless (< nn n)
 	    (unless (eq nn n)
@@ -148,4 +148,6 @@ If NO-DISPLAY is nil, display it. Otherwise, do nothing after replacing."
 		  (error nil))
 		(delete-region ,(point-min-marker) ,(point-max-marker))))))))))
 
+(provide 'mm-partial)
+
 ;;; mm-partial.el ends here