[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/mail/pmailmm.el,v
From: |
Paul Michael Reilly |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mail/pmailmm.el,v |
Date: |
Fri, 29 Aug 2008 04:27:48 +0000 |
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