From 54445f5660fd5e6cb60626f0b49d613de9631948 Mon Sep 17 00:00:00 2001 From: Reiner Steib Date: Mon, 29 May 2006 21:22:00 +0000 Subject: [PATCH] 2006-05-29 Andreas Seltenreich * gnus-ml.el (gnus-mailing-list-message): Use gnus-url-mailto instead of doing it manually. --- lisp/ChangeLog | 7 ++++++- lisp/gnus-ml.el | 30 +++++------------------------- 2 files changed, 11 insertions(+), 26 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 092966990..f5645e27e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,6 +1,11 @@ +2006-05-29 Andreas Seltenreich + + * gnus-ml.el (gnus-mailing-list-message): Use gnus-url-mailto instead + of doing it manually. + 2006-05-29 Reiner Steib - * gnus-art.el (gnus-article-toggle-truncate-lines): Fix type in + * gnus-art.el (gnus-article-toggle-truncate-lines): Fix typo in comment. 2006-05-29 Kevin Greiner diff --git a/lisp/gnus-ml.el b/lisp/gnus-ml.el index 75ed4f423..6328b40aa 100644 --- a/lisp/gnus-ml.el +++ b/lisp/gnus-ml.el @@ -170,32 +170,12 @@ If FORCE is non-nil, replace the old ones." (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 - + (cond + ((string-match "<\\(mailto:[^>]*\\)>" address) + (require 'gnus-art) + (gnus-url-mailto (match-string 1 address))) ; other case