From: Pavel@Janik.cz (Pavel Janík)
Subject: Re: Mouse-2 on e-mail in From: header?
Date: Sat, 15 Sep 2001 01:37:57 +0200 [thread overview]
Message-ID: <m3k7z1s5re.fsf@SnowWhite.SuSE.cz> (raw)
In-Reply-To: <iluofod8sug.fsf@barbar.josefsson.org>
From: Simon Josefsson <jas@extundo.com>
Date: Fri, 14 Sep 2001 21:39:35 +0200
Hi,
> Maybe you could try applying the diff's between gnus-art.el in pretest
> and the one in CVS incrementally to find what change caused this?
> Assuming it is gnus-art.el which causes this..
OK, running with Gnus 5.9.0 with gnus-msg.el and gnus.el is OK (at least
for this particular problem). After applying the following patch:
--- gnus-art.el Sun Aug 19 00:20:48 2001
+++ gnus-art.el.new Sat Sep 15 01:01:14 2001
@@ -38,6 +39,10 @@
(require 'wid-edit)
(require 'mm-uu)
+(autoload 'gnus-msg-mail "gnus-msg" nil t)
+(autoload 'gnus-button-mailto "gnus-msg")
+(autoload 'gnus-button-reply "gnus-msg" nil t)
+
(defgroup gnus-article nil
"Article display."
:link '(custom-manual "(gnus)The Article Buffer")
@@ -4688,31 +5203,24 @@
(setq url (substring url (match-beginning 1) nil)))
(let (to args subject func)
(if (string-match (regexp-quote "?") url)
- (setq to (gnus-url-unhex-string (substring url 0 (match-beginning 0)))
- args (gnus-url-parse-query-string
- (substring url (match-end 0) nil) t))
+ (setq to (gnus-url-unhex-string (substring url 0 (match-beginning 0)))
+ args (gnus-url-parse-query-string
+ (substring url (match-end 0) nil) t))
(setq to (gnus-url-unhex-string url)))
(setq args (cons (list "to" to) args)
- subject (cdr-safe (assoc "subject" args)))
- (message-mail)
+ subject (cdr-safe (assoc "subject" args)))
+ (gnus-msg-mail)
(while args
(setq func (intern-soft (concat "message-goto-" (downcase (caar args)))))
(if (fboundp func)
- (funcall func)
- (message-position-on-field (caar args)))
+ (funcall func)
+ (message-position-on-field (caar args)))
(insert (mapconcat 'identity (cdar args) ", "))
(setq args (cdr args)))
(if subject
- (message-goto-body)
+ (message-goto-body)
(message-goto-subject))))
-(defun gnus-button-mailto (address)
- "Mail to ADDRESS."
- (set-buffer (gnus-copy-article-buffer))
- (message-reply address))
-
-(defalias 'gnus-button-reply 'message-reply)
-
(defun gnus-button-embedded-url (address)
"Activate ADDRESS with `browse-url'."
(browse-url (gnus-strip-whitespace address)))
The problem is back. I hope this is enough to solve it. Sorry, I must go
for some sleep today ;-)
--
Pavel Janík
panic("Foooooooood fight!");
-- 2.2.16 drivers/scsi/aha1542.c
next prev parent reply other threads:[~2001-09-14 23:37 UTC|newest]
Thread overview: 10+ messages / expand[flat|nested] mbox.gz Atom feed top
2001-08-31 10:09 Pavel Janík
2001-08-31 11:53 ` Roland Mas
2001-08-31 12:10 ` Pavel Janík
2001-09-03 10:12 ` Pavel Janík
2001-09-14 19:18 ` Pavel Janík
2001-09-14 19:39 ` Simon Josefsson
2001-09-14 23:37 ` Pavel Janík [this message]
2001-09-15 2:52 ` ShengHuo ZHU
2001-09-17 11:48 ` Gerd Moellmann
2001-09-17 13:09 ` ShengHuo ZHU
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=m3k7z1s5re.fsf@SnowWhite.SuSE.cz \
--to=pavel@janik.cz \
/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).