From: Michael Piotrowski <mxp@dynalabs.de>
To: ding@gnus.org
Subject: Read-only message separator
Date: Fri, 04 Feb 2011 20:41:05 +0100 [thread overview]
Message-ID: <x6pqr7fuzy.fsf@eurus.zrh.dynalabs.de> (raw)
Hi,
The change in `message-setup-1' to insert the mail-header-separator with
read-only and intangible properties set (commit
bd10f37e4630719920f82122d7c7ae7523567762) doesn't work for me (on XEmacs
21.4.22). When trying to compose a message, I get
#v+
Debugger entered--Lisp error: (buffer-read-only #<buffer "*unsent mail*">)
insert("")
(progn (insert message-default-mail-headers) (or (bolp) (insert ?\n)))
(if message-default-mail-headers (progn (insert message-default-mail-headers) (or ... ...)))
(when message-default-mail-headers (insert message-default-mail-headers) (or (bolp) (insert ?\n)))
(progn (when message-default-mail-headers (insert message-default-mail-headers) (or ... ...)) (message-generate-headers (message-headers-to-generate ... message-generate-headers-first ...)))
(if (message-mail-p) (progn (when message-default-mail-headers ... ...) (message-generate-headers ...)))
(when (message-mail-p) (when message-default-mail-headers (insert message-default-mail-headers) (or ... ...)) (message-generate-headers (message-headers-to-generate ... message-generate-headers-first ...)))
(let ((message-generate-headers-first ...)) (when (message-news-p) (when message-default-news-headers ... ...) (message-generate-headers ...)) (when (message-mail-p) (when message-default-mail-headers ... ...) (message-generate-headers ...)))
message-setup-1(((To . "") (Subject . "")) nil nil nil)
message-setup(((To . "") (Subject . "")) nil nil nil nil nil)
message-mail()
gnus-group-mail(nil)
call-interactively(gnus-group-mail)
#v-
It works if I change
'read-only t
to
'read-only nil
in the call to `propertize' in `message-setup-1'.
An XEmacs issue?
Thanks and greetings
--
Dr.-Ing. Michael Piotrowski, M.A. <mxp@dynalabs.de>
Public key at <http://www.dynalabs.de/mxp/pubkey.txt> (ID 0x1614A044)
next reply other threads:[~2011-02-04 19:41 UTC|newest]
Thread overview: 10+ messages / expand[flat|nested] mbox.gz Atom feed top
2011-02-04 19:41 Michael Piotrowski [this message]
2011-02-04 21:31 ` Lars Ingebrigtsen
2011-02-04 21:36 ` Lars Ingebrigtsen
2011-02-04 21:47 ` Lars Ingebrigtsen
2011-02-05 9:42 ` Michael Piotrowski
2011-02-07 18:19 ` Ted Zlatanov
2011-02-14 3:20 ` Lars Ingebrigtsen
2011-02-14 15:04 ` Ted Zlatanov
2011-02-20 17:14 ` Julien Danjou
2011-02-21 23:20 ` Lars Ingebrigtsen
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=x6pqr7fuzy.fsf@eurus.zrh.dynalabs.de \
--to=mxp@dynalabs.de \
--cc=ding@gnus.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).