[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-ml.el
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-ml.el |
Date: |
Tue, 04 Feb 2003 08:06:39 -0500 |
Index: emacs/lisp/gnus/gnus-ml.el
diff -c emacs/lisp/gnus/gnus-ml.el:1.3 emacs/lisp/gnus/gnus-ml.el:1.4
*** emacs/lisp/gnus/gnus-ml.el:1.3 Sun Jul 15 13:42:53 2001
--- emacs/lisp/gnus/gnus-ml.el Tue Feb 4 08:06:38 2003
***************
*** 94,101 ****
(defun gnus-mailing-list-help ()
"Get help from mailing list server."
! (interactive)
! (let ((list-help
(with-current-buffer gnus-original-article-buffer
(gnus-fetch-field "list-help"))))
(cond (list-help (gnus-mailing-list-message list-help))
--- 94,101 ----
(defun gnus-mailing-list-help ()
"Get help from mailing list server."
! (interactive)
! (let ((list-help
(with-current-buffer gnus-original-article-buffer
(gnus-fetch-field "list-help"))))
(cond (list-help (gnus-mailing-list-message list-help))
***************
*** 104,110 ****
(defun gnus-mailing-list-subscribe ()
"Subscribe"
(interactive)
! (let ((list-subscribe
(with-current-buffer gnus-original-article-buffer
(gnus-fetch-field "list-subscribe"))))
(cond (list-subscribe (gnus-mailing-list-message list-subscribe))
--- 104,110 ----
(defun gnus-mailing-list-subscribe ()
"Subscribe"
(interactive)
! (let ((list-subscribe
(with-current-buffer gnus-original-article-buffer
(gnus-fetch-field "list-subscribe"))))
(cond (list-subscribe (gnus-mailing-list-message list-subscribe))
***************
*** 113,119 ****
(defun gnus-mailing-list-unsubscribe ()
"Unsubscribe"
(interactive)
! (let ((list-unsubscribe
(with-current-buffer gnus-original-article-buffer
(gnus-fetch-field "list-unsubscribe"))))
(cond (list-unsubscribe (gnus-mailing-list-message list-unsubscribe))
--- 113,119 ----
(defun gnus-mailing-list-unsubscribe ()
"Unsubscribe"
(interactive)
! (let ((list-unsubscribe
(with-current-buffer gnus-original-article-buffer
(gnus-fetch-field "list-unsubscribe"))))
(cond (list-unsubscribe (gnus-mailing-list-message list-unsubscribe))
***************
*** 122,128 ****
(defun gnus-mailing-list-post ()
"Post message (really useful ?)"
(interactive)
! (let ((list-post
(with-current-buffer gnus-original-article-buffer
(gnus-fetch-field "list-post"))))
(cond (list-post (gnus-mailing-list-message list-post))
--- 122,128 ----
(defun gnus-mailing-list-post ()
"Post message (really useful ?)"
(interactive)
! (let ((list-post
(with-current-buffer gnus-original-article-buffer
(gnus-fetch-field "list-post"))))
(cond (list-post (gnus-mailing-list-message list-post))
***************
*** 131,137 ****
(defun gnus-mailing-list-owner ()
"Mail to the owner"
(interactive)
! (let ((list-owner
(with-current-buffer gnus-original-article-buffer
(gnus-fetch-field "list-owner"))))
(cond (list-owner (gnus-mailing-list-message list-owner))
--- 131,137 ----
(defun gnus-mailing-list-owner ()
"Mail to the owner"
(interactive)
! (let ((list-owner
(with-current-buffer gnus-original-article-buffer
(gnus-fetch-field "list-owner"))))
(cond (list-owner (gnus-mailing-list-message list-owner))
***************
*** 140,146 ****
(defun gnus-mailing-list-archive ()
"Browse archive"
(interactive)
! (let ((list-archive
(with-current-buffer gnus-original-article-buffer
(gnus-fetch-field "list-archive"))))
(cond (list-archive (gnus-mailing-list-message list-archive))
--- 140,146 ----
(defun gnus-mailing-list-archive ()
"Browse archive"
(interactive)
! (let ((list-archive
(with-current-buffer gnus-original-article-buffer
(gnus-fetch-field "list-archive"))))
(cond (list-archive (gnus-mailing-list-message list-archive))
***************
*** 155,161 ****
(subject "None")
(body "")
)
! (cond
((string-match "<mailto:\\([^>]*\\)>" address)
(let ((args (match-string 1 address)))
(cond ; with param
--- 155,161 ----
(subject "None")
(body "")
)
! (cond
((string-match "<mailto:\\([^>]*\\)>" address)
(let ((args (match-string 1 address)))
(cond ; with param
***************
*** 168,176 ****
(setq body (match-string 1 param)))
(if (string-match "to=\\([^&]*\\)" param)
(push (match-string 1 param) to))
! ))
(t (setq mailto args))))) ; without param
!
; other case <http://... to be done.
(t nil))
(gnus-setup-message 'message (message-mail mailto subject))
--- 168,176 ----
(setq body (match-string 1 param)))
(if (string-match "to=\\([^&]*\\)" param)
(push (match-string 1 param) to))
! ))
(t (setq mailto args))))) ; without param
!
; other case <http://... to be done.
(t nil))
(gnus-setup-message 'message (message-mail mailto subject))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/gnus/gnus-ml.el,
Juanma Barranquero <=