/[emacs]/emacs/lisp/gnus/gnus-ml.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-ml.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by pj, Sun Jul 15 17:42:53 2001 UTC revision 1.4 by lektu, Tue Feb 4 13:06:38 2003 UTC
# Line 94  Line 94 
94    
95  (defun gnus-mailing-list-help ()  (defun gnus-mailing-list-help ()
96    "Get help from mailing list server."    "Get help from mailing list server."
97    (interactive)      (interactive)
98    (let ((list-help    (let ((list-help
99           (with-current-buffer gnus-original-article-buffer           (with-current-buffer gnus-original-article-buffer
100             (gnus-fetch-field "list-help"))))             (gnus-fetch-field "list-help"))))
101      (cond (list-help (gnus-mailing-list-message list-help))      (cond (list-help (gnus-mailing-list-message list-help))
# Line 104  Line 104 
104  (defun gnus-mailing-list-subscribe ()  (defun gnus-mailing-list-subscribe ()
105    "Subscribe"    "Subscribe"
106    (interactive)    (interactive)
107    (let ((list-subscribe    (let ((list-subscribe
108           (with-current-buffer gnus-original-article-buffer           (with-current-buffer gnus-original-article-buffer
109             (gnus-fetch-field "list-subscribe"))))             (gnus-fetch-field "list-subscribe"))))
110      (cond (list-subscribe (gnus-mailing-list-message list-subscribe))      (cond (list-subscribe (gnus-mailing-list-message list-subscribe))
# Line 113  Line 113 
113  (defun gnus-mailing-list-unsubscribe ()  (defun gnus-mailing-list-unsubscribe ()
114    "Unsubscribe"    "Unsubscribe"
115    (interactive)    (interactive)
116    (let ((list-unsubscribe    (let ((list-unsubscribe
117           (with-current-buffer gnus-original-article-buffer           (with-current-buffer gnus-original-article-buffer
118             (gnus-fetch-field "list-unsubscribe"))))             (gnus-fetch-field "list-unsubscribe"))))
119      (cond (list-unsubscribe (gnus-mailing-list-message list-unsubscribe))      (cond (list-unsubscribe (gnus-mailing-list-message list-unsubscribe))
# Line 122  Line 122 
122  (defun gnus-mailing-list-post ()  (defun gnus-mailing-list-post ()
123    "Post message (really useful ?)"    "Post message (really useful ?)"
124    (interactive)    (interactive)
125    (let ((list-post    (let ((list-post
126           (with-current-buffer gnus-original-article-buffer           (with-current-buffer gnus-original-article-buffer
127             (gnus-fetch-field "list-post"))))             (gnus-fetch-field "list-post"))))
128      (cond (list-post (gnus-mailing-list-message list-post))      (cond (list-post (gnus-mailing-list-message list-post))
# Line 131  Line 131 
131  (defun gnus-mailing-list-owner ()  (defun gnus-mailing-list-owner ()
132    "Mail to the owner"    "Mail to the owner"
133    (interactive)    (interactive)
134    (let ((list-owner    (let ((list-owner
135           (with-current-buffer gnus-original-article-buffer           (with-current-buffer gnus-original-article-buffer
136             (gnus-fetch-field "list-owner"))))             (gnus-fetch-field "list-owner"))))
137      (cond (list-owner (gnus-mailing-list-message list-owner))      (cond (list-owner (gnus-mailing-list-message list-owner))
# Line 140  Line 140 
140  (defun gnus-mailing-list-archive ()  (defun gnus-mailing-list-archive ()
141    "Browse archive"    "Browse archive"
142    (interactive)    (interactive)
143    (let ((list-archive    (let ((list-archive
144           (with-current-buffer gnus-original-article-buffer           (with-current-buffer gnus-original-article-buffer
145             (gnus-fetch-field "list-archive"))))             (gnus-fetch-field "list-archive"))))
146      (cond (list-archive (gnus-mailing-list-message list-archive))      (cond (list-archive (gnus-mailing-list-message list-archive))
# Line 155  Line 155 
155          (subject "None")          (subject "None")
156          (body "")          (body "")
157          )          )
158      (cond      (cond
159       ((string-match "<mailto:\\([^>]*\\)>" address)       ((string-match "<mailto:\\([^>]*\\)>" address)
160        (let ((args (match-string 1 address)))        (let ((args (match-string 1 address)))
161          (cond                                   ; with param          (cond                                   ; with param
# Line 168  Line 168 
168                  (setq body (match-string 1 param)))                  (setq body (match-string 1 param)))
169              (if (string-match "to=\\([^&]*\\)" param)              (if (string-match "to=\\([^&]*\\)" param)
170                  (push (match-string 1 param) to))                  (push (match-string 1 param) to))
171              ))                ))
172           (t (setq mailto args)))))                      ; without param           (t (setq mailto args)))))                      ; without param
173        
174       ; other case <http://... to be done.       ; other case <http://... to be done.
175       (t nil))       (t nil))
176      (gnus-setup-message 'message (message-mail mailto subject))      (gnus-setup-message 'message (message-mail mailto subject))

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26