2006-05-29 Andreas Seltenreich <uwi7@rz.uni-karlsruhe.de>

	* gnus-ml.el (gnus-mailing-list-message): Use gnus-url-mailto instead
	of doing it manually.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0929669..f5645e2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,11 @@
+2006-05-29  Andreas Seltenreich  <uwi7@rz.uni-karlsruhe.de>
+
+       * gnus-ml.el (gnus-mailing-list-message): Use gnus-url-mailto instead
+       of doing it manually.
+
 2006-05-29  Reiner Steib  <Reiner.Steib@gmx.de>
 
-       * 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  <kevin.greiner@compsol.cc>

diff --git a/lisp/gnus-ml.el b/lisp/gnus-ml.el
index 75ed4f4..6328b40 100644 (file)
--- 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 "<mailto:\\([^>]*\\)>" 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 <http://... to be done.
-     (t nil))
-    (gnus-setup-message 'message (message-mail mailto subject))
-    (insert body)
-    ))
+   (t nil)))
 
 (provide 'gnus-ml)