:visible (gnus-check-backend-function 'request-expire-articles
gnus-newsgroup-name))
(gnus-summary-mark-as-spam
- "mail/spam" t :visible (spam-group-ham-contents-p gnus-newsgroup-name)
+ "mail/spam" t
+ :visible (and (fboundp 'spam-group-ham-contents-p)
+ (spam-group-ham-contents-p gnus-newsgroup-name))
:help "Mark as spam")
(gnus-summary-mark-as-read-forward
- "mail/not-spam" nil :visible (spam-group-spam-contents-p gnus-newsgroup-name))
+ "mail/not-spam" nil
+ :visible (and (fboundp 'spam-group-spam-contents-p)
+ (spam-group-spam-contents-p gnus-newsgroup-name)))
;;
(gnus-summary-exit "exit")
(gmm-customize-mode "preferences" t :help "Edit mode preferences")
tool-bar-mode
(or (not gnus-summary-tool-bar-map) force))
(let* ((load-path
- (gmm-image-load-path "gnus" "mail/save.xpm" 'load-path))
+ (gmm-image-load-path-for-library "gnus"
+ "mail/save.xpm"
+ nil t))
(image-load-path
- (gmm-image-load-path "gnus" "mail/save.xpm" 'image-load-path))
+ (gmm-image-load-path-for-library "gnus"
+ "mail/save.xpm"
+ 'image-load-path t))
(map (gmm-tool-bar-from-list gnus-summary-tool-bar
gnus-summary-tool-bar-zap-list
'gnus-summary-mode-map)))
;; We keep TAB as well.
(aset table ?\t nil)
;; We nix out any glyphs 127 through 255, or 127 through 159 in
- ;; Emacs 23, that are not set already.
+ ;; Emacs 23 (unicode), that are not set already.
(let ((i (if (ignore-errors (= (make-char 'latin-iso8859-1 160) 160))
160
256)))