projects
/
elisp
/
gnus.git-
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
02c7ef8
)
* message.el (message-resend): Bind `inhibit-field-text-motion' to t while
author
yamaoka
<yamaoka>
Fri, 19 Oct 2001 01:26:40 +0000
(
01:26
+0000)
committer
yamaoka
<yamaoka>
Fri, 19 Oct 2001 01:26:40 +0000
(
01:26
+0000)
resending a mail.
ChangeLog
patch
|
blob
|
history
lisp/message.el
patch
|
blob
|
history
diff --git
a/ChangeLog
b/ChangeLog
index
b632542
..
efe637f
100644
(file)
--- a/
ChangeLog
+++ b/
ChangeLog
@@
-1,3
+1,8
@@
+2001-10-19 Katsumi Yamaoka <yamaoka@jpl.org>
+
+ * lisp/message.el (message-resend): Bind
+ `inhibit-field-text-motion' to t while resending a mail.
+
2001-10-16 Katsumi Yamaoka <yamaoka@jpl.org>
* lisp/message.el (message-send): Remove the text property `field'
2001-10-16 Katsumi Yamaoka <yamaoka@jpl.org>
* lisp/message.el (message-send): Remove the text property `field'
diff --git
a/lisp/message.el
b/lisp/message.el
index
8522623
..
bd0265f
100644
(file)
--- a/
lisp/message.el
+++ b/
lisp/message.el
@@
-5426,9
+5426,10
@@
Optional NEWS will use news to forward instead of mail."
(replace-match "X-From-Line: "))
;; Send it.
(let ((message-encoding-buffer (current-buffer))
(replace-match "X-From-Line: "))
;; Send it.
(let ((message-encoding-buffer (current-buffer))
- (message-edit-buffer (current-buffer)))
- (let (message-required-mail-headers)
- (message-send-mail)))
+ (message-edit-buffer (current-buffer))
+ message-required-mail-headers
+ (inhibit-field-text-motion t))
+ (message-send-mail))
(kill-buffer (current-buffer)))
(message "Resending message to %s...done" address)))
(kill-buffer (current-buffer)))
(message "Resending message to %s...done" address)))