mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-14 16:50:58 +00:00
Code Issues Releases Activity

message.el (message-setup-1): Don't bind the constant -forbidden-properties.

Browse Source 
(message-setup-1): Revert previous change, since it needs to bind the props to insert them.
 (message-resend): Allow removing the read-only separator line.
This commit is contained in:
Lars Ingebrigtsen 2011-02-04 09:51:56 +00:00 committed by Katsumi Yamaoka
parent a5d733f5d7
commit 2b7feab009
2 changed files with 25 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/gnus/ChangeLog
View File

@ -1,3 +1,11 @@
2011-02-04 Lars Ingebrigtsen <larsi@gnus.org>
* message.el (message-setup-1): Don't bind the constant
-forbidden-properties.
(message-setup-1): Revert previous change, since it needs to bind the
props to insert them.
(message-resend): Allow removing the read-only separator line.
2011-02-03 Lars Ingebrigtsen <larsi@gnus.org>
* nnimap.el (nnimap-request-accept-article): Give an error message if

21
lisp/gnus/message.el
View File

@ -129,6 +129,17 @@
:group 'message-buffers
:type '(choice function (const nil)))
(defcustom message-cite-style nil
"The overall style to be used when yanking cited text.
Values are either `traditional' (cited text first),
`top-post' (cited text at the bottom), or nil (don't override the
individual message variables)."
:version "24.1"
:group 'message-various
:type '(choice (const :tag "None" :value nil)
(const :tag "Traditional" :value traditional)
(const :tag "Top-post" :value top-post)))
(defcustom message-fcc-handler-function 'message-output
"*A function called to save outgoing articles.
This function will be called with the name of the file to store the
@ -2764,7 +2775,7 @@ message composition doesn't break too bad."
:link '(custom-manual "(message)Various Message Variables")
:type 'boolean)
(defconst message-forbidden-properties
(defvar message-forbidden-properties
;; No reason this should be clutter up customize. We make it a
;; property list (rather than a list of property symbols), to be
;; directly useful for `remove-text-properties'.
@ -6402,7 +6413,7 @@ are not included."
(or (bolp) (insert ?\n)))
(let ((message-forbidden-properties nil))
(insert (propertize (concat mail-header-separator "\n")
'read-only t 'rear-nonsticky t 'intangible t)))
'read-only t 'rear-nonsticky t 'intangible t)))
(forward-line -1)
;; If a crash happens while replying, the auto-save file would *not* have a
;; `References:' header if `message-generate-headers-first' was nil.
@ -7429,7 +7440,8 @@ is for the internal use."
;; We first set up a normal mail buffer.
(unless (message-mail-user-agent)
(set-buffer (get-buffer-create " *message resend*"))
(erase-buffer))
(let ((inhibit-read-only t))
(erase-buffer)))
(let ((message-this-is-mail t)
message-generate-hashcash
message-setup-hook)
@ -7446,7 +7458,8 @@ is for the internal use."
(insert "Resent-"))
(widen)
(forward-line)
(delete-region (point) (point-max))
(let ((inhibit-read-only t))
(delete-region (point) (point-max)))
(setq beg (point))
;; Insert the message to be resent.
(insert-buffer-substring cur)