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.
"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
(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)
(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)