From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/8452 Path: main.gmane.org!not-for-mail From: Per Abrahamsen Newsgroups: gmane.emacs.gnus.general Subject: mailto:address?subject=subject URL support Date: 21 Oct 1996 14:57:44 +0200 Organization: The Church of Emacs Sender: abraham@dina.kvl.dk Message-ID: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit X-Trace: main.gmane.org 1035148610 12202 80.91.224.250 (20 Oct 2002 21:16:50 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 21:16:50 +0000 (UTC) Return-Path: Original-Received: (qmail 6822 invoked from smtpd); 21 Oct 1996 13:58:23 -0000 Original-Received: from ifi.uio.no (0@129.240.64.2) by deanna.miranova.com with SMTP; 21 Oct 1996 13:58:22 -0000 Original-Received: from elc1.dina.kvl.dk (elc1.dina.kvl.dk [130.225.40.228]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) id for ; Mon, 21 Oct 1996 14:57:54 +0200 Original-Received: from kolmogorov.dina.kvl.dk (kolmogorov.dina.kvl.dk [130.225.40.209]) by elc1.dina.kvl.dk (8.6.12/8.6.4) with ESMTP id OAA19919; Mon, 21 Oct 1996 14:51:46 +0200 Original-Received: (abraham@localhost) by kolmogorov.dina.kvl.dk (8.6.12/8.6.4) id OAA22855; Mon, 21 Oct 1996 14:57:44 +0200 Original-To: ding@ifi.uio.no X-Face: +kRV2]2q}lixHkE{U)mY#+6]{AH=yN~S9@IFiOa@X6?GM|8MBp/ Original-Lines: 41 X-Mailer: Red Gnus v0.52/Emacs 19.34 Xref: main.gmane.org gmane.emacs.gnus.general:8452 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:8452 Here is a patch that allows Gnus to handle mailto URLs of the form: It seems to be an undocumented Netscape extension, but I might be wrong about that. Maybe wmperry knows. Mon Oct 21 14:50:11 1996 Per Abrahamsen * gnus-art.el (gnus-button-reply): Handle Netscape `?subject=' mailto urls. cd ~/emacs/rgnus/lisp/ diff -c gnus-art.el~ gnus-art.el *** gnus-art.el~ Tue Oct 8 12:47:05 1996 --- gnus-art.el Mon Oct 21 14:48:31 1996 *************** *** 1839,1845 **** (defun gnus-button-reply (address) ;; Reply to ADDRESS. ! (message-reply address)) (defun gnus-button-url (address) "Browse ADDRESS." --- 1839,1850 ---- (defun gnus-button-reply (address) ;; Reply to ADDRESS. ! (let ((case-fold-search t)) ! (if (string-match "\\`\\(.*\\)\\?subject=\\(.*\\)\\'" address) ! (let ((to (match-string 1 address)) ! (subject (match-string 2 address))) ! (message-mail to subject)) ! (message-reply address)))) (defun gnus-button-url (address) "Browse ADDRESS." Compilation exited abnormally with code 1 at Mon Oct 21 14:48:51