/[emacs]/emacs/lisp/gnus/gnus-sum.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-sum.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.29 by zsh, Sat Feb 16 19:03:14 2002 UTC revision 1.30 by zsh, Tue Apr 2 20:24:32 2002 UTC
# Line 2010  increase the score of each group you rea Line 2010  increase the score of each group you rea
2010  (defvar gnus-summary-tool-bar-map nil)  (defvar gnus-summary-tool-bar-map nil)
2011    
2012  ;; Emacs 21 tool bar.  Should be no-op otherwise.  ;; Emacs 21 tool bar.  Should be no-op otherwise.
2013    ;; NB: A new function tool-bar-local-item-from-menu is added in Emacs
2014    ;; 21.2.50+.  Considering many users use Emacs 21, use
2015    ;; tool-bar-add-item-from-menu here.
2016  (defun gnus-summary-make-tool-bar ()  (defun gnus-summary-make-tool-bar ()
2017    (if (and (fboundp 'tool-bar-add-item-from-menu)    (if (and
2018             (default-value 'tool-bar-mode)         (condition-case nil (require 'tool-bar) (error nil))
2019             (not gnus-summary-tool-bar-map))         (fboundp 'tool-bar-add-item-from-menu)
2020           (default-value 'tool-bar-mode)
2021           (not gnus-summary-tool-bar-map))
2022        (setq gnus-summary-tool-bar-map        (setq gnus-summary-tool-bar-map
2023              (let ((tool-bar-map (make-sparse-keymap)))              (let ((tool-bar-map (make-sparse-keymap)))
2024                (tool-bar-add-item-from-menu                (tool-bar-add-item-from-menu

Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26