- (if (featurep 'xemacs)
- (if prefix
- (let (keymap agent)
- (with-current-buffer gnus-article-current-summary
- (setq keymap (copy-keymap (current-local-map))
- agent (if (boundp 'gnus-agent-summary-mode)
- gnus-agent-summary-mode)))
- (map-keymap
- (lambda (key def)
- (define-key keymap (vector ?S key) def))
- gnus-article-send-map)
- (with-temp-buffer
- (setq major-mode 'gnus-article-mode)
- (use-local-map keymap)
- (set (make-local-variable 'gnus-agent-summary-mode) agent)
- (describe-bindings prefix)))
- (let ((keymap (copy-keymap gnus-article-mode-map))
- (map (copy-keymap gnus-article-send-map))
- (sumkeys (where-is-internal 'gnus-article-read-summary-keys)))
- (define-key keymap "S" map)
- (set-keymap-default-binding map nil)
- (with-current-buffer gnus-article-current-summary
- (let ((def (key-binding "S"))
- gnus-pick-mode)
- (set-keymap-parent map (if (symbolp def)
- (symbol-value def)
- def))
- (dolist (key sumkeys)
- (when (setq def (key-binding key))
- (define-key keymap key def)))))
- (with-temp-buffer
- (setq major-mode 'gnus-article-mode)
- (use-local-map keymap)
- (describe-bindings))))
- (if prefix
- (let ((keymap (make-sparse-keymap))
- (map (copy-keymap gnus-article-send-map))
- smap agent)
- (with-current-buffer gnus-article-current-summary
- (setq smap (current-local-map)
- agent (if (boundp 'gnus-agent-summary-mode)
- 'gnus-agent-summary-mode)))
- (define-key keymap "S" map)
- (define-key map [t] nil)
- (set-keymap-parent keymap smap)
- (with-temp-buffer
- (use-local-map keymap)
- (set (make-local-variable 'gnus-agent-summary-mode) agent)
- (describe-bindings prefix)))
- (let ((keymap (copy-keymap gnus-article-mode-map))
- (map (copy-keymap gnus-article-send-map))
- (sumkeys (where-is-internal 'gnus-article-read-summary-keys)))
- (define-key keymap "S" map)
- (define-key map [t] nil)
- (with-current-buffer gnus-article-current-summary
- (set-keymap-parent map (key-binding "S"))
- (let (def gnus-pick-mode)
- (dolist (key sumkeys)
- (when (setq def (key-binding key))
- (define-key keymap key def)))))
- (with-temp-buffer
- (use-local-map keymap)
- (describe-bindings))))))
+ (let ((keymap (copy-keymap gnus-article-mode-map))
+ (map (copy-keymap gnus-article-send-map))
+ (sumkeys (where-is-internal 'gnus-article-read-summary-keys))
+ agent)
+ (define-key keymap "S" map)
+ (define-key map [t] nil)
+ (with-current-buffer gnus-article-current-summary
+ (set-keymap-parent map (key-binding "S"))
+ (let (def gnus-pick-mode)
+ (dolist (key sumkeys)
+ (when (setq def (key-binding key))
+ (define-key keymap key def))))
+ (when (boundp 'gnus-agent-summary-mode)
+ (setq agent gnus-agent-summary-mode)))
+ (with-temp-buffer
+ (use-local-map keymap)
+ (set (make-local-variable 'gnus-agent-summary-mode) agent)
+ (describe-bindings prefix))))