mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

gnus-bound-and-true-dumper-p to fix XEmacs build.

Browse Source
This commit is contained in:
Ted Zlatanov 2011-10-31 22:55:39 +00:00 committed by Katsumi Yamaoka
parent 57dda3bb50
commit 37dcccdd20
4 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/gnus/ChangeLog
View File

@ -1,5 +1,11 @@
2011-10-31 Teodor Zlatanov <tzz@lifelogs.com>
* gnus-util.el (gnus-bound-and-true-dumber-p): Define new, slower, dumb
function because `gnus-bound-and-true-p' doesn't work well in XEmacs
for reasons unknown.
* nnir.el: Use it.
* nnmairix.el: Use it.
* nnregistry.el: Remove unnecessary `gnus-registry-enabled' defvar.
* nnir.el: Ditto.
* nnmairix.el: Ditto.

3
lisp/gnus/gnus-util.el
View File

@ -1994,6 +1994,9 @@ definitions to shadow the loaded ones for use in file byte-compilation."
"Return the value of symbol VAR if it is bound, else nil."
`(and (boundp (quote ,var)) ,var))))
(defun gnus-bound-and-true-dumber-p (sym)
(and (boundp sym) (symbol-value sym)))
(provide 'gnus-util)
;;; gnus-util.el ends here

2
lisp/gnus/nnir.el
View File

@ -1739,7 +1739,7 @@ environment unless `not-global' is non-nil."
(when (eq (car (gnus-find-method-for-group gnus-newsgroup-name)) 'nnir)
(setq gnus-summary-line-format
(or nnir-summary-line-format gnus-summary-line-format))
(when (gnus-bound-and-true-p gnus-registry-enabled)
(when (gnus-bound-and-true-dumber-p 'gnus-registry-enabled)
(remove-hook 'gnus-summary-article-delete-hook 'gnus-registry-action t)
(remove-hook 'gnus-summary-article-move-hook 'gnus-registry-action t)
(remove-hook 'gnus-summary-article-expire-hook 'gnus-registry-action t)

2
lisp/gnus/nnmairix.el
View File

@ -1635,7 +1635,7 @@ search in raw mode."
(defun nnmairix-determine-original-group-from-registry (mid)
"Try to determinale original group for message-id MID from the registry."
(when (gnus-bound-and-true-p gnus-registry-enabled)
(when (gnus-bound-and-true-dumber-p 'gnus-registry-enabled)
(unless (string-match "^<" mid)
(set mid (concat "<" mid)))
(unless (string-match ">$" mid)