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)) |
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)) |
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)) |
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)) |
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)) |
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)) |
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 |
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)) |