projects
/
elisp
/
flim.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(eword-decode-string, eword-decode-region): Mention language info in doc string.
[elisp/flim.git]
/
mmbuffer.el
diff --git
a/mmbuffer.el
b/mmbuffer.el
index
b99d80b
..
c605a59
100644
(file)
--- a/
mmbuffer.el
+++ b/
mmbuffer.el
@@
-19,8
+19,8
@@
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
;;; Code:
;;; Code:
@@
-125,9
+125,10
@@
filename)
(save-excursion
(set-buffer (mime-buffer-entity-buffer-internal entity))
filename)
(save-excursion
(set-buffer (mime-buffer-entity-buffer-internal entity))
- (binary-write-region (mime-buffer-entity-body-start-internal entity)
- (mime-buffer-entity-body-end-internal entity)
- filename)))
+ (binary-write-decoded-region
+ (mime-buffer-entity-body-start-internal entity)
+ (mime-buffer-entity-body-end-internal entity)
+ filename)))
;;; @ entity content
;;; @ entity content
@@
-173,8
+174,7
@@
(let ((ret (std11-fetch-field field-name)))
(when ret
(or (symbolp field-name)
(let ((ret (std11-fetch-field field-name)))
(when ret
(or (symbolp field-name)
- (setq field-name
- (intern (capitalize (capitalize field-name)))))
+ (setq field-name (intern (capitalize field-name))))
(mime-entity-set-original-header-internal
entity
(put-alist field-name ret
(mime-entity-set-original-header-internal
entity
(put-alist field-name ret