;;; gnus-cus.el --- customization commands for Gnus
;; Copyright (C) 1996, 1999, 2000, 2001, 2002, 2003, 2004,
-;; 2005 Free Software Foundation, Inc.
+;; 2005, 2006 Free Software Foundation, Inc.
;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
;; Keywords: news
;;; Widgets:
+(defvar gnus-custom-map
+ (let ((map (make-keymap)))
+ (set-keymap-parent map widget-keymap)
+ (suppress-keymap map)
+ (define-key map [mouse-1] 'widget-move-and-invoke)
+ map)
+ "Keymap for editing Gnus customization buffers.")
+
(defun gnus-custom-mode ()
"Major mode for editing Gnus customization buffers.
(kill-all-local-variables)
(setq major-mode 'gnus-custom-mode
mode-name "Gnus Customize")
- (use-local-map widget-keymap)
+ (use-local-map gnus-custom-map)
;; Emacs 21 stuff:
(when (and (facep 'custom-button-face)
(facep 'custom-button-pressed-face))
(const signature-file)
(const organization)
(const address)
+ (const x-face-file)
(const name)
- (const body))
+ (const body)
+ (symbol)
+ (string :tag "Header"))
(string :format "%v"))))
"post style.
See `gnus-posting-styles'."))
(widget-create 'sexp
:tag "Method"
:value (gnus-info-method info))))
- (use-local-map widget-keymap)
+ (use-local-map gnus-custom-map)
(widget-setup)
(buffer-enable-undo)
(goto-char (point-min))))
'(repeat :inline t
:tag "Unknown entries"
sexp)))
- (use-local-map widget-keymap)
+ (use-local-map gnus-custom-map)
(widget-setup)))
(defun gnus-score-customize-done (&rest ignore)
(gnus-agent-cat-prepare-category-field agent-enable-undownloaded-faces)
- (use-local-map widget-keymap)
+ (use-local-map gnus-custom-map)
(widget-setup)
(buffer-enable-undo))))