From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/63176 Path: news.gmane.org!not-for-mail From: Andreas Seltenreich Newsgroups: gmane.emacs.gnus.general Subject: mailto URLs vs. gnus-ml.el Date: Sat, 06 May 2006 22:23:55 +0200 Message-ID: <87bquanbqc.fsf@gate450.dyndns.org> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: sea.gmane.org 1146947099 1004 80.91.229.2 (6 May 2006 20:24:59 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sat, 6 May 2006 20:24:59 +0000 (UTC) Original-X-From: ding-owner+m11703@lists.math.uh.edu Sat May 06 22:24:58 2006 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by ciao.gmane.org with esmtp (Exim 4.43) id 1FcTKc-0002yR-KU for ding-account@gmane.org; Sat, 06 May 2006 22:24:50 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu ident=lists) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 1FcTKY-0003yh-00; Sat, 06 May 2006 15:24:46 -0500 Original-Received: from nas02.math.uh.edu ([129.7.128.40]) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 1FcTJs-0003yc-00 for ding@lists.math.uh.edu; Sat, 06 May 2006 15:24:04 -0500 Original-Received: from quimby.gnus.org ([80.91.224.244]) by nas02.math.uh.edu with esmtp (Exim 4.52) id 1FcTJq-0005od-I9 for ding@lists.math.uh.edu; Sat, 06 May 2006 15:24:04 -0500 Original-Received: from smtp1.rz.uni-karlsruhe.de ([129.13.185.217]) by quimby.gnus.org with esmtp (Exim 3.35 #1 (Debian)) id 1FcTJl-000538-00 for ; Sat, 06 May 2006 22:23:57 +0200 Original-Received: from rzstud2.stud.uni-karlsruhe.de (exim@rzstud2.stud.uni-karlsruhe.de [193.196.41.38]) by smtp1.rz.uni-karlsruhe.de with esmtp (Exim 4.50 #1) id 1FcTJl-0000sb-2I; Sat, 06 May 2006 22:23:57 +0200 Original-Received: from uwi7 by rzstud2.stud.uni-karlsruhe.de with local (Exim 4.43) id 1FcTJk-0002KS-MB for ding@gnus.org; Sat, 06 May 2006 22:23:56 +0200 Original-To: ding@gnus.org X-Face: $:F<87a[gD1?#R6S3j21cr1&C&7bd63GHC.tSdskUb}hhwG(ci*=D5kJ<_N+p9q(7-,PnG. Et.Yh --=-=-= Hi, I just tried to subscribe to a list I was reading through gmane using gnus-mailing-list-subscribe, but the message body that was generated didn't look very promising: sub%20pgsql-committers The attached patch fixes it by calling gnus-url-mailto instead of ad-hoc parsing the url and manually setting up a message buffer. Thanks, andreas 2006-05-06 Andreas Seltenreich * gnus-ml.el (gnus-mailing-list-message): Use gnus-url-mailto instead of doing it manually. --=-=-= Content-Type: text/x-patch Content-Disposition: inline; filename=gnus-ml.patch Index: gnus-ml.el =================================================================== RCS file: /usr/local/cvsroot/gnus/lisp/gnus-ml.el,v retrieving revision 7.7 diff -c -r7.7 gnus-ml.el *** gnus-ml.el 8 Feb 2006 04:17:15 -0000 7.7 --- gnus-ml.el 6 May 2006 20:23:03 -0000 *************** *** 170,201 **** (defun gnus-mailing-list-message (address) "" ! (let ((mailto "") ! (to ()) ! (subject "None") ! (body "") ! ) ! (cond ! ((string-match "]*\\)>" address) ! (let ((args (match-string 1 address))) ! (cond ; with param ! ((string-match "\\(.*\\)\\?\\(.*\\)" args) ! (setq mailto (match-string 1 args)) ! (let ((param (match-string 2 args))) ! (if (string-match "subject=\\([^&]*\\)" param) ! (setq subject (match-string 1 param))) ! (if (string-match "body=\\([^&]*\\)" param) ! (setq body (match-string 1 param))) ! (if (string-match "to=\\([^&]*\\)" param) ! (push (match-string 1 param) to)) ! )) ! (t (setq mailto args))))) ; without param ! ; other case ]*\\)>" address) ! (require 'gnus-art) ! (gnus-url-mailto (match-string 1 address))) ; other case