From: yamaoka Date: Tue, 5 Nov 2002 05:33:06 +0000 (+0000) Subject: Synch with the semi-1_14 branch. X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=69918e6ef9c8b3f98ffeabae986900fde10e77e2;p=elisp%2Fsemi.git Synch with the semi-1_14 branch. --- diff --git a/ChangeLog b/ChangeLog index 68ac124..6eaab4c 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,12 @@ +2002-11-03 Yoichi NAKAYAMA + + * mime-edit.el (mime-edit-decode-single-part-in-buffer): Decode text + part only. + +2002-04-16 Daiki Ueno + + * mime-edit.el (mime-file-types): Add setting of *.jpeg for image/jpeg. + 2002-10-26 Yoichi NAKAYAMA * mime-view.el (mime-preview-find-boundary-info): Fix logic. Do not diff --git a/mime-edit.el b/mime-edit.el index f29bc23..7747c63 100644 --- a/mime-edit.el +++ b/mime-edit.el @@ -339,7 +339,7 @@ To insert a signature file automatically, call the function ;; Pure binary - ("\\.jpg$" + ("\\.jpg$\\|\\.jpeg$" "image" "jpeg" nil "base64" "inline" (("filename" . file)) @@ -2937,15 +2937,16 @@ Content-Type: message/partial; id=%s; number=%d; total=%d\n%s\n" (setq encoded t encoding nil) ))))))) - (if (or encoded (not not-decode-text)) - (progn - (save-excursion - (goto-char (point-min)) - (while (re-search-forward "\r\n" nil t) - (replace-match "\n") - )) - (decode-mime-charset-region (point-min)(point-max) - (or charset default-mime-charset)) + (if (and (eq type 'text) + (or encoded (not not-decode-text))) + (progn + (save-excursion + (goto-char (point-min)) + (while (re-search-forward "\r\n" nil t) + (replace-match "\n") + )) + (decode-mime-charset-region (point-min)(point-max) + (or charset default-mime-charset)) )) (let ((he (if (re-search-forward "^$" nil t) (match-end 0)