From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/54465
Path: main.gmane.org!not-for-mail
From: f95-msv@f.kth.se (=?iso-8859-1?q?M=E5rten_Svantesson?=)
Newsgroups: gmane.emacs.gnus.general
Subject: Patch for gnus-url-mailto
Date: Fri, 24 Oct 2003 19:24:40 +0200
Sender: ding-owner@lists.math.uh.edu
Message-ID: <h6b7k2ur1k7.fsf@fnatte.nada.kth.se>
NNTP-Posting-Host: deer.gmane.org
Mime-Version: 1.0
Content-Type: multipart/mixed; boundary="=-=-="
X-Trace: sea.gmane.org 1067292062 5331 80.91.224.253 (27 Oct 2003 22:01:02 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Mon, 27 Oct 2003 22:01:02 +0000 (UTC)
Original-X-From: ding-owner+M3006@lists.math.uh.edu Mon Oct 27 23:01:00 2003
Return-path: <ding-owner+M3006@lists.math.uh.edu>
Original-Received: from malifon.math.uh.edu ([129.7.128.13])
	by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian))
	id 1AEFQ4-0008Tx-00
	for <ding-account@gmane.org>; Mon, 27 Oct 2003 23:01:00 +0100
Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu)
	by malifon.math.uh.edu with smtp (Exim 3.20 #1)
	id 1AEFPo-0003Hc-00; Mon, 27 Oct 2003 16:00:45 -0600
Original-Received: from justine.libertine.org ([66.139.78.221])
	by malifon.math.uh.edu with esmtp (Exim 3.20 #1)
	id 1AEEby-0002TH-00
	for ding@lists.math.uh.edu; Mon, 27 Oct 2003 15:09:14 -0600
Original-Received: from quimby.gnus.org (quimby.gnus.org [80.91.224.244])
	by justine.libertine.org (Postfix) with ESMTP id 350FB3A005F
	for <ding@gnus.org>; Mon, 27 Oct 2003 15:09:14 -0600 (CST)
Original-Received: from news by quimby.gnus.org with local (Exim 3.35 #1 (Debian))
	id 1AD5g9-00023v-00
	for <ding@gnus.org>; Fri, 24 Oct 2003 19:24:49 +0200
Original-To: ding@gnus.org
Original-Path: not-for-mail
Original-Newsgroups: gnus.ding
Original-Lines: 80
Original-NNTP-Posting-Host: fnatte.nada.kth.se
Original-X-Trace: quimby.gnus.org 1067016289 7930 130.237.226.103 (24 Oct 2003 17:24:49 GMT)
Original-X-Complaints-To: usenet@quimby.gnus.org
Original-NNTP-Posting-Date: Fri, 24 Oct 2003 17:24:49 +0000 (UTC)
User-Agent: Gnus/5.1003 (Gnus v5.10.3) XEmacs/21.1 (Cuyahoga Valley,
 usg-unix-v)
Cancel-Lock: sha1:paIVt3ySxZAnvfznC+bar9gGSyQ=
Precedence: bulk
Xref: main.gmane.org gmane.emacs.gnus.general:54465
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:54465

--=-=-=
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: quoted-printable

Hi!

I read rfc 2368 and found a couple an example that didn't work
correctly i gnus:

mailto:addr1?to=3Daddr2

It's also stated that line breaks should be encoded as "%0D%0A". In
this case gnus show ^M.

A patch is attached to fix these things.

--=20
                - M=E5rten
=20
mail: msv@kth.se *** ICQ: 4356928 *** mobile: +46 (0)707390385


--=-=-=
Content-Type: text/x-patch
Content-Disposition: attachment

Index: gnus-art.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gnus-art.el,v
retrieving revision 6.376
diff -c -r6.376 gnus-art.el
*** gnus-art.el	22 Oct 2003 12:25:50 -0000	6.376
--- gnus-art.el	24 Oct 2003 17:22:10 -0000
***************
*** 6612,6632 ****
    ;; Send mail to someone
    (when (string-match "mailto:/*\\(.*\\)" url)
      (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 url)))
!     (setq args (cons (list "to" to) args)
! 	  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)))
!       (insert (mapconcat 'identity (cdar args) ", "))
        (setq args (cdr args)))
      (if subject
  	(message-goto-body)
--- 6612,6632 ----
    ;; Send mail to someone
    (when (string-match "mailto:/*\\(.*\\)" url)
      (setq url (substring url (match-beginning 1) nil)))
!   (let (args subject func)
!     (setq args 
! 	  (gnus-url-parse-query-string 
! 	   (concat "to=" 
! 		   (replace-in-string url (regexp-quote "?") "&")) t))
!     (setq 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)))
!       (insert (replace-in-string 
! 	       (mapconcat 'identity (cdar args) ", ")
! 	       "\r\n" "\n"))
        (setq args (cdr args)))
      (if subject
  	(message-goto-body)

--=-=-=--