(gnus-mailing-list-unsubscribe, gnus-mailing-list-owner)
(gnus-mailing-list-message): Fix doc strings.
+2006-05-29 Reiner Steib <Reiner.Steib@gmx.de>
+
+ * gnus-ml.el (gnus-mailing-list-subscribe)
+ (gnus-mailing-list-unsubscribe, gnus-mailing-list-owner)
+ (gnus-mailing-list-message): Fix doc strings.
+
2006-05-29 Andreas Seltenreich <uwi7@rz.uni-karlsruhe.de>
* gnus-ml.el (gnus-mailing-list-message): Use gnus-url-mailto instead
2006-05-29 Andreas Seltenreich <uwi7@rz.uni-karlsruhe.de>
* gnus-ml.el (gnus-mailing-list-message): Use gnus-url-mailto instead
"\C-c\C-nu" gnus-mailing-list-unsubscribe
"\C-c\C-np" gnus-mailing-list-post
"\C-c\C-no" gnus-mailing-list-owner
"\C-c\C-nu" gnus-mailing-list-unsubscribe
"\C-c\C-np" gnus-mailing-list-post
"\C-c\C-no" gnus-mailing-list-owner
- "\C-c\C-na" gnus-mailing-list-archive
- ))
+ "\C-c\C-na" gnus-mailing-list-archive))
(defun gnus-mailing-list-make-menu-bar ()
(unless (boundp 'gnus-mailing-list-menu)
(defun gnus-mailing-list-make-menu-bar ()
(unless (boundp 'gnus-mailing-list-menu)
;; Set up the menu.
(when (gnus-visual-p 'mailing-list-menu 'menu)
(gnus-mailing-list-make-menu-bar))
;; Set up the menu.
(when (gnus-visual-p 'mailing-list-menu 'menu)
(gnus-mailing-list-make-menu-bar))
- (add-minor-mode 'gnus-mailing-list-mode " Mailing-List" gnus-mailing-list-mode-map)
+ (add-minor-mode 'gnus-mailing-list-mode " Mailing-List"
+ gnus-mailing-list-mode-map)
(gnus-run-hooks 'gnus-mailing-list-mode-hook))))
;;; Commands
(gnus-run-hooks 'gnus-mailing-list-mode-hook))))
;;; Commands
(t (gnus-message 1 "no list-help in this group")))))
(defun gnus-mailing-list-subscribe ()
(t (gnus-message 1 "no list-help in this group")))))
(defun gnus-mailing-list-subscribe ()
+ "Subscribe to mailing list."
(interactive)
(let ((list-subscribe
(with-current-buffer gnus-original-article-buffer
(interactive)
(let ((list-subscribe
(with-current-buffer gnus-original-article-buffer
(t (gnus-message 1 "no list-subscribe in this group")))))
(defun gnus-mailing-list-unsubscribe ()
(t (gnus-message 1 "no list-subscribe in this group")))))
(defun gnus-mailing-list-unsubscribe ()
+ "Unsubscribe from mailing list."
(interactive)
(let ((list-unsubscribe
(with-current-buffer gnus-original-article-buffer
(interactive)
(let ((list-unsubscribe
(with-current-buffer gnus-original-article-buffer
(t (gnus-message 1 "no list-post in this group")))))
(defun gnus-mailing-list-owner ()
(t (gnus-message 1 "no list-post in this group")))))
(defun gnus-mailing-list-owner ()
+ "Mail to the mailing list owner."
(interactive)
(let ((list-owner
(with-current-buffer gnus-original-article-buffer
(interactive)
(let ((list-owner
(with-current-buffer gnus-original-article-buffer
;;; Utility functions
(defun gnus-mailing-list-message (address)
;;; Utility functions
(defun gnus-mailing-list-message (address)
+ "Send message to ADDRESS.
+ADDRESS is specified by a \"mailto:\" URL."
(cond
((string-match "<\\(mailto:[^>]*\\)>" address)
(require 'gnus-art)
(gnus-url-mailto (match-string 1 address)))
(cond
((string-match "<\\(mailto:[^>]*\\)>" address)
(require 'gnus-art)
(gnus-url-mailto (match-string 1 address)))
- ; other case <http://... to be done.
+ ;; other case <http://...> to be done.
(t nil)))
(provide 'gnus-ml)
(t nil)))
(provide 'gnus-ml)