Mercurial > emacs
diff lisp/gnus/score-mode.el @ 31716:9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Tue, 19 Sep 2000 13:37:09 +0000 |
parents | 15fc6acbae7a |
children | 695cf19ef79e d7ddb3e565de |
line wrap: on
line diff
--- a/lisp/gnus/score-mode.el Tue Sep 19 13:28:27 2000 +0000 +++ b/lisp/gnus/score-mode.el Tue Sep 19 13:37:09 2000 +0000 @@ -25,9 +25,8 @@ ;;; Code: -(require 'easymenu) -(require 'timezone) (eval-when-compile (require 'cl)) +(require 'mm-util) ; for mm-auto-save-coding-system (defvar gnus-score-mode-hook nil "*Hook run in score mode buffers.") @@ -40,7 +39,8 @@ (defvar gnus-score-mode-map nil) (unless gnus-score-mode-map - (setq gnus-score-mode-map (copy-keymap emacs-lisp-mode-map)) + (setq gnus-score-mode-map (make-sparse-keymap)) + (set-keymap-parent gnus-score-mode-map emacs-lisp-mode-map) (define-key gnus-score-mode-map "\C-c\C-c" 'gnus-score-edit-exit) (define-key gnus-score-mode-map "\C-c\C-d" 'gnus-score-edit-insert-date) (define-key gnus-score-mode-map "\C-c\C-p" 'gnus-score-pretty-print)) @@ -51,6 +51,9 @@ table) "Syntax table used in score-mode buffers.") +;; We need this to cope with non-ASCII scoring. +(defvar score-mode-coding-system mm-auto-save-coding-system) + ;;;###autoload (defun gnus-score-mode () "Mode for editing Gnus score files. @@ -81,7 +84,7 @@ (defun gnus-score-edit-insert-date () "Insert date in numerical format." (interactive) - (princ (gnus-score-day-number (current-time)) (current-buffer))) + (princ (time-to-days (current-time)) (current-buffer))) (defun gnus-score-pretty-print () "Format the current score file." @@ -98,7 +101,8 @@ (interactive) (unless (file-exists-p (file-name-directory (buffer-file-name))) (make-directory (file-name-directory (buffer-file-name)) t)) - (save-buffer) + (let ((coding-system-for-write score-mode-coding-system)) + (save-buffer)) (bury-buffer (current-buffer)) (let ((buf (current-buffer))) (when gnus-score-edit-exit-function @@ -106,11 +110,6 @@ (when (eq buf (current-buffer)) (switch-to-buffer (other-buffer (current-buffer)))))) -(defun gnus-score-day-number (time) - (let ((dat (decode-time time))) - (timezone-absolute-from-gregorian - (nth 4 dat) (nth 3 dat) (nth 5 dat)))) - (provide 'score-mode) ;;; score-mode.el ends here