From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/38766 Path: main.gmane.org!not-for-mail From: Pavel@Janik.cz (Pavel =?iso-8859-2?q?Jan=EDk?=) Newsgroups: gmane.emacs.gnus.general Subject: Re: Mouse-2 on e-mail in From: header? Date: Sat, 15 Sep 2001 01:37:57 +0200 Message-ID: References: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-2 Content-Transfer-Encoding: 8bit X-Trace: main.gmane.org 1035174576 24207 80.91.224.250 (21 Oct 2002 04:29:36 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 04:29:36 +0000 (UTC) Return-Path: Return-Path: Original-Received: (qmail 8276 invoked from network); 14 Sep 2001 23:37:09 -0000 Original-Received: from czlug1.razdva.cz (HELO SnowWhite.SuSE.cz) (194.212.65.172) by gnus.org with SMTP; 14 Sep 2001 23:37:09 -0000 Original-Received: by SnowWhite.SuSE.cz (PJ, from userid 500) id BEA124C037; Sat, 15 Sep 2001 01:38:14 +0200 (CEST) Original-To: GNUS mailing list X-Face: $"d&^B_IKlTHX!y2d,3;grhwjOBqOli]LV`6d]58%5'x/kBd7.MO&n3bJ@Zkf&RfBu|^qL+ ?/Re{MpTqanXS2'~Qp'J2p^M7uM:zp[1Xq#{|C!*'&NvCC[9!|=>#qHqIhroq_S"MH8nSH+d^9*BF: iHiAs(t(~b#1.{w.d[=Z User-Agent: Gnus/5.090004 (Oort Gnus v0.04) Emacs/21.0.106 Original-Lines: 74 Xref: main.gmane.org gmane.emacs.gnus.general:38766 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:38766 From: Simon Josefsson 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