projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(spam-mark-junk-as-spam-routine)
[gnus]
/
lisp
/
gnus-ml.el
diff --git
a/lisp/gnus-ml.el
b/lisp/gnus-ml.el
index
41f85ae
..
87d645b
100644
(file)
--- a/
lisp/gnus-ml.el
+++ b/
lisp/gnus-ml.el
@@
-3,7
+3,7
@@
;; Copyright (C) 2000, 2001 Free Software Foundation, Inc.
;; Author: Julien Gilles <jgilles@free.fr>
;; Copyright (C) 2000, 2001 Free Software Foundation, Inc.
;; 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.
@@
-102,7
+102,7
@@
If FORCE is non-nil, replace the old ones."
;; 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))
- (
gnus-
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
@@
-117,7
+117,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
+126,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
+144,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
+153,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
@@
-177,7
+177,7
@@
If FORCE is non-nil, replace the old ones."
(cond
((string-match "<mailto:\\([^>]*\\)>" address)
(let ((args (match-string 1 address)))
(cond
((string-match "<mailto:\\([^>]*\\)>" address)
(let ((args (match-string 1 address)))
- (cond
; with param
+ (cond ; with param
((string-match "\\(.*\\)\\?\\(.*\\)" args)
(setq mailto (match-string 1 args))
(let ((param (match-string 2 args)))
((string-match "\\(.*\\)\\?\\(.*\\)" args)
(setq mailto (match-string 1 args))
(let ((param (match-string 2 args)))
@@
-188,7
+188,7
@@
If FORCE is non-nil, replace the old ones."
(if (string-match "to=\\([^&]*\\)" param)
(push (match-string 1 param) to))
))
(if (string-match "to=\\([^&]*\\)" param)
(push (match-string 1 param) to))
))
- (t (setq mailto args)))))
; without param
+ (t (setq mailto args))))) ; without param
; other case <http://... to be done.
(t nil))
; other case <http://... to be done.
(t nil))
@@
-198,4
+198,5
@@
If FORCE is non-nil, replace the old ones."
(provide 'gnus-ml)
(provide 'gnus-ml)
+;;; arch-tag: 936c0fe6-acce-4c16-87d0-eded88078896
;;; gnus-ml.el ends here
;;; gnus-ml.el ends here