projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Don't quote nil and t in doc strings
[gnus]
/
lisp
/
legacy-gnus-agent.el
diff --git
a/lisp/legacy-gnus-agent.el
b/lisp/legacy-gnus-agent.el
index
d0b4d10
..
bd69087
100644
(file)
--- a/
lisp/legacy-gnus-agent.el
+++ b/
lisp/legacy-gnus-agent.el
@@
-1,26
+1,24
@@
;;; gnus-agent.el --- Legacy unplugged support for Gnus
;;; gnus-agent.el --- Legacy unplugged support for Gnus
-;; Copyright (C) 2004
, 2005, 2006, 2007
Free Software Foundation, Inc.
+;; Copyright (C) 2004
-2015
Free Software Foundation, Inc.
;; Author: Kevin Greiner <kgreiner@xpediantsolutions.com>
;; Keywords: news
;; This file is part of GNU Emacs.
;; Author: Kevin Greiner <kgreiner@xpediantsolutions.com>
;; Keywords: news
;; This file is part of GNU Emacs.
-;; GNU Emacs is free software
;
you can redistribute it and/or modify
+;; GNU Emacs is free software
:
you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation
; either version 3, or (at your option)
-;; any later version.
+;; the Free Software Foundation
, either version 3 of the License, or
+;;
(at your option)
any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
See the
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; GNU General Public License for more details.
;; 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., 51 Franklin Street, Fifth Floor,
-;; Boston, MA 02110-1301, USA.
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;; Commentary:
@@
-188,7
+186,7
@@
converted to the compressed format."
(when (eq 0 (string-match
(caar days)
group))
(when (eq 0 (string-match
(caar days)
group))
- (throw 'found (cad
ar days
)))
+ (throw 'found (cad
r (car days)
)))
(setq days (cdr days)))
nil)))
(when day
(setq days (cdr days)))
nil)))
(when day
@@
-208,29
+206,31
@@
converted to the compressed format."
(gnus-convert-mark-converter-prompt 'gnus-agent-unlist-expire-days t)
(defun gnus-agent-unhook-expire-days (converting-to)
(gnus-convert-mark-converter-prompt 'gnus-agent-unlist-expire-days t)
(defun gnus-agent-unhook-expire-days (converting-to)
- "Remove every lambda from
gnus-group-prepare-hook
that mention the
-symbol
gnus-agent-do-once
in their definition. This should NOT be
+ "Remove every lambda from
`gnus-group-prepare-hook'
that mention the
+symbol
`gnus-agent-do-once'
in their definition. This should NOT be
necessary as gnus-agent.el no longer adds them. However, it is
possible that the hook was persistently saved."
necessary as gnus-agent.el no longer adds them. However, it is
possible that the hook was persistently saved."
- (let ((h t)) ;
iterate from bgn of hook
+ (let ((h t)) ;
Iterate from bgn of hook.
(while h
(let ((func (progn (when (eq h t)
(while h
(let ((func (progn (when (eq h t)
- ;;
init h to list of functions
+ ;;
Init h to list of functions.
(setq h (cond ((listp gnus-group-prepare-hook)
gnus-group-prepare-hook)
((boundp 'gnus-group-prepare-hook)
(list gnus-group-prepare-hook)))))
(pop h))))
(setq h (cond ((listp gnus-group-prepare-hook)
gnus-group-prepare-hook)
((boundp 'gnus-group-prepare-hook)
(list gnus-group-prepare-hook)))))
(pop h))))
- (when (cond ((eq (type-of func) 'compiled-function)
- ;; Search def. of compiled function for gnus-agent-do-once string
+ (when (cond ((byte-code-function-p func)
+ ;; Search def. of compiled function for
+ ;; gnus-agent-do-once string.
(let* (definition
print-level
print-length
(standard-output
(lambda (char)
(setq definition (cons char definition)))))
(let* (definition
print-level
print-length
(standard-output
(lambda (char)
(setq definition (cons char definition)))))
- (princ func) ; populates definition with reversed list of characters
+ (princ func) ; Populates definition with reversed list
+ ; of characters.
(let* ((i (length definition))
(s (make-string i 0)))
(while definition
(let* ((i (length definition))
(s (make-string i 0)))
(while definition
@@
-238,7
+238,7
@@
possible that the hook was persistently saved."
(string-match "\\bgnus-agent-do-once\\b" s))))
((listp func)
(string-match "\\bgnus-agent-do-once\\b" s))))
((listp func)
- (eq (cadr (nth 2 func)) 'gnus-agent-do-once) ;
handles eval'd lambda
+ (eq (cadr (nth 2 func)) 'gnus-agent-do-once) ;
Handles eval'd lambda.
))
(remove-hook 'gnus-group-prepare-hook func)
))
(remove-hook 'gnus-group-prepare-hook func)
@@
-252,5
+252,4
@@
possible that the hook was persistently saved."
(provide 'legacy-gnus-agent)
(provide 'legacy-gnus-agent)
-;; arch-tag: 845c7b8a-88f7-4468-b8d7-94e8fc72cf1a
;;; legacy-gnus-agent.el ends here
;;; legacy-gnus-agent.el ends here