[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-ml.el

[Juanma Barranquero]

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