X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus-ml.el;h=25f6685ad8b6b3414acc4b883117ef0e0e1b2827;hb=9b741e050b400987d68ff761c6cc3276c932839c;hp=41f85ae24010ae12cf01f92e26acfb4a068cfc49;hpb=3738187cad20787b5b99c4061256e30e19ee721a;p=elisp%2Fgnus.git- diff --git a/lisp/gnus-ml.el b/lisp/gnus-ml.el index 41f85ae..25f6685 100644 --- a/lisp/gnus-ml.el +++ b/lisp/gnus-ml.el @@ -177,7 +177,7 @@ If FORCE is non-nil, replace the old ones." (cond ((string-match "]*\\)>" address) (let ((args (match-string 1 address))) - (cond ; with param + (cond ; with param ((string-match "\\(.*\\)\\?\\(.*\\)" args) (setq mailto (match-string 1 args)) (let ((param (match-string 2 args)))