- ;; Don't display anything in the mode line -- too annoying.
- ;;(unless (assq 'gnus-undo-mode minor-mode-alist)
- ;; (push '(gnus-undo-mode " Undo") minor-mode-alist))
- (unless (assq 'gnus-undo-mode minor-mode-map-alist)
- (push (cons 'gnus-undo-mode gnus-undo-mode-map)
- minor-mode-map-alist))
- (gnus-make-local-hook 'post-command-hook)
- (gnus-add-hook 'post-command-hook 'gnus-undo-boundary nil t)
- (run-hooks 'gnus-undo-mode-hook)))
+ (gnus-add-minor-mode 'gnus-undo-mode "" gnus-undo-mode-map)
+ (make-local-hook 'post-command-hook)
+ (add-hook 'post-command-hook 'gnus-undo-boundary nil t)
+ (gnus-run-hooks 'gnus-undo-mode-hook)))