projects
/
elisp
/
gnus.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Synch to No Gnus 200512141312.
[elisp/gnus.git-]
/
lisp
/
gnus-ml.el
diff --git
a/lisp/gnus-ml.el
b/lisp/gnus-ml.el
index
7179fe2
..
a5396e2
100644
(file)
--- a/
lisp/gnus-ml.el
+++ b/
lisp/gnus-ml.el
@@
-1,9
+1,10
@@
;;; gnus-ml.el --- Mailing list minor mode for Gnus
;;; gnus-ml.el --- Mailing list minor mode for Gnus
-;; Copyright (C) 2000, 2001 Free Software Foundation, Inc.
+;; Copyright (C) 2000, 2001, 2002, 2003, 2004,
+;; 2005 Free Software Foundation, Inc.
;; Author: Julien Gilles <jgilles@free.fr>
;; Author: Julien Gilles <jgilles@free.fr>
-;; Keywords: news
+;; Keywords: news, mail
;; This file is part of GNU Emacs.
;; This file is part of GNU Emacs.
@@
-19,8
+20,8
@@
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
;;; Commentary:
;;; Commentary:
@@
-117,7
+118,7
@@
If FORCE is non-nil, replace the old ones."
(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"
+ "Subscribe."
(interactive)
(let ((list-subscribe
(with-current-buffer gnus-original-article-buffer
(interactive)
(let ((list-subscribe
(with-current-buffer gnus-original-article-buffer
@@
-126,7
+127,7
@@
If FORCE is non-nil, replace the old ones."
(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"
+ "Unsubscribe."
(interactive)
(let ((list-unsubscribe
(with-current-buffer gnus-original-article-buffer
(interactive)
(let ((list-unsubscribe
(with-current-buffer gnus-original-article-buffer
@@
-144,7
+145,7
@@
If FORCE is non-nil, replace the old ones."
(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 owner"
+ "Mail to the owner."
(interactive)
(let ((list-owner
(with-current-buffer gnus-original-article-buffer
(interactive)
(let ((list-owner
(with-current-buffer gnus-original-article-buffer
@@
-153,7
+154,7
@@
If FORCE is non-nil, replace the old ones."
(t (gnus-message 1 "no list-owner in this group")))))
(defun gnus-mailing-list-archive ()
(t (gnus-message 1 "no list-owner in this group")))))
(defun gnus-mailing-list-archive ()
- "Browse archive"
+ "Browse archive."
(interactive)
(require 'browse-url)
(let ((list-archive
(interactive)
(require 'browse-url)
(let ((list-archive