comparison lisp/gnus/gnus-salt.el @ 175:2d532a89d707 r20-3b14

Import from CVS: tag r20-3b14
author cvs
date Mon, 13 Aug 2007 09:50:14 +0200
parents 8eaf7971accc
children
comparison
equal deleted inserted replaced
174:bb3568571b84 175:2d532a89d707
948 The following commands are available: 948 The following commands are available:
949 949
950 \\{gnus-carpal-mode-map}" 950 \\{gnus-carpal-mode-map}"
951 (interactive) 951 (interactive)
952 (kill-all-local-variables) 952 (kill-all-local-variables)
953 (setq mode-line-modified "-- ") 953 (setq mode-line-modified (cdr gnus-mode-line-modified))
954 (setq major-mode 'gnus-carpal-mode) 954 (setq major-mode 'gnus-carpal-mode)
955 (setq mode-name "Gnus Carpal") 955 (setq mode-name "Gnus Carpal")
956 (setq mode-line-process nil) 956 (setq mode-line-process nil)
957 (use-local-map gnus-carpal-mode-map) 957 (use-local-map gnus-carpal-mode-map)
958 (buffer-disable-undo (current-buffer)) 958 (buffer-disable-undo (current-buffer))