[Emacs-diffs] Changes to emacs/lisp/mail/pmailmm.el,v

[Paul Michael Reilly]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Paul Michael Reilly <pmr>       08/08/29 04:27:46

Index: pmailmm.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mail/pmailmm.el,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- pmailmm.el  18 Aug 2008 04:59:13 -0000      1.2
+++ pmailmm.el  29 Aug 2008 04:27:46 -0000      1.3
@@ -39,6 +39,9 @@
 
 ;;; Code:
 
+;; For ...
+(require 'pmail)
+
 ;;; Variables
 
 (defcustom pmail-mime-media-type-handlers-alist
@@ -190,9 +193,10 @@
   ;;    of the preceding part.
   ;; We currently don't handle that.
   (let ((boundary (cdr (assq 'boundary content-type)))
-       beg next)
+       beg end next)
     (unless boundary
-      (error "No boundary defined" content-type content-disposition
+      (pmail-mm-get-boundary-error-message
+       "No boundary defined" content-type content-disposition
             content-transfer-encoding))
     (setq boundary (concat "\n--" boundary))
     ;; Hide the body before the first bodypart
@@ -216,8 +220,9 @@
            ((looking-at "[ \t]*\n")
             (setq next (copy-marker (match-end 0))))
            (t
-            (error "Malformed boundary" content-type
-                   content-disposition content-transfer-encoding)))
+            (pmail-mm-get-boundary-error-message
+             "Malformed boundary" content-type content-disposition
+             content-transfer-encoding)))
       (delete-region end next)
       ;; Handle the part.
       (save-match-data
@@ -396,6 +401,11 @@
       (pmail-mime-show t))
     (view-buffer buf)))
 
+(defun pmail-mm-get-boundary-error-message (message type disposition encoding)
+  "Return MESSAGE with more information on the main mime components."
+  (error "%s; type: %s; disposition: %s; encoding: %s"
+        message type disposition encoding))
+
 (provide 'pmailmm)
 
 ;; arch-tag: 3f2c5e5d-1aef-4512-bc20-fd737c9d5dd9