HCoop
/
bpt
/
emacs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add 2011 to FSF/AIST copyright years.
[bpt/emacs.git]
/
lisp
/
mh-e
/
mh-comp.el
diff --git
a/lisp/mh-e/mh-comp.el
b/lisp/mh-e/mh-comp.el
index
6d8dd61
..
1ae6495
100644
(file)
--- a/
lisp/mh-e/mh-comp.el
+++ b/
lisp/mh-e/mh-comp.el
@@
-1,7
+1,8
@@
;;; mh-comp.el --- MH-E functions for composing and sending messages
;; Copyright (C) 1993, 1995, 1997,
;;; mh-comp.el --- MH-E functions for composing and sending messages
;; Copyright (C) 1993, 1995, 1997,
-;; 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
+;; 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011
+;; Free Software Foundation, Inc.
;; Author: Bill Wohler <wohler@newt.com>
;; Maintainer: Bill Wohler <wohler@newt.com>
;; Author: Bill Wohler <wohler@newt.com>
;; Maintainer: Bill Wohler <wohler@newt.com>
@@
-275,8
+276,8
@@
message and scan line."
'(undecided undecided-unix undecided-dos))))
buffer-file-coding-system
(or (and (boundp 'sendmail-coding-system) sendmail-coding-system)
'(undecided undecided-unix undecided-dos))))
buffer-file-coding-system
(or (and (boundp 'sendmail-coding-system) sendmail-coding-system)
- (and (
boundp 'default-buffer-file-coding-system
)
-
default-buffer-file-coding-system
)
+ (and (
default-boundp 'buffer-file-coding-system
)
+
(default-value 'buffer-file-coding-system)
)
'iso-latin-1))))
;; Older versions of spost do not support -msgid and -mime.
(unless mh-send-uses-spost-flag
'iso-latin-1))))
;; Older versions of spost do not support -msgid and -mime.
(unless mh-send-uses-spost-flag
@@
-472,8
+473,7
@@
See also `mh-compose-forward-as-mime-flag',
(mh-read-draft "" draft-name nil)))))
(let (orig-from
orig-subject)
(mh-read-draft "" draft-name nil)))))
(let (orig-from
orig-subject)
- (save-excursion
- (set-buffer (get-buffer-create mh-temp-buffer))
+ (with-current-buffer (get-buffer-create mh-temp-buffer)
(erase-buffer)
(insert-file-contents fwd-msg-file)
(setq orig-from (mh-get-header-field "From:"))
(erase-buffer)
(insert-file-contents fwd-msg-file)
(setq orig-from (mh-get-header-field "From:"))