X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmessagexmas.el;h=856f6e1b0ab82d73ac76e2b9ed27aeca418e22ff;hb=e2696774a2e225ea60d46cc665d4232c80412731;hp=d94afa8136f7656292f628e49d7018625d1a33e0;hpb=49d38b41c190eaab2cb34294fac7302a9c9ea353;p=elisp%2Fgnus.git- diff --git a/lisp/messagexmas.el b/lisp/messagexmas.el index d94afa8..856f6e1 100644 --- a/lisp/messagexmas.el +++ b/lisp/messagexmas.el @@ -1,6 +1,6 @@ ;;; messagexmas.el --- XEmacs extensions to message -;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2003 +;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2003, 2004 ;; Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen @@ -114,6 +114,21 @@ If it is non-nil, it must be a toolbar. The five valid values are (substring table a (+ a n)) (substring table (+ a 26) 255)))) +(defun message-xmas-make-date (&optional now) + "Make a valid data header. +If NOW, use that time instead." + (let ((zone (car (current-time-zone))) + sign) + (if (>= zone 0) + (setq sign "+") + (setq sign "-" + zone (- zone))) + (format "%s %s%02d%02d" + (format-time-string "%a, %d %b %Y %T" now) + sign + (/ zone 3600) + (/ (% zone 3600) 60)))) + (add-hook 'message-mode-hook 'message-xmas-maybe-fontify) (defun message-xmas-redefine () @@ -122,12 +137,12 @@ If it is non-nil, it must be a toolbar. The five valid values are 'message-xmas-exchange-point-and-mark) (defalias 'message-mark-active-p 'region-exists-p) - (when (>= emacs-major-version 20) - (defalias 'message-make-caesar-translation-table - 'message-xmas-make-caesar-translation-table)) + (defalias 'message-make-caesar-translation-table + 'message-xmas-make-caesar-translation-table) (defalias 'message-make-overlay 'make-extent) (defalias 'message-delete-overlay 'delete-extent) - (defalias 'message-overlay-put 'set-extent-property)) + (defalias 'message-overlay-put 'set-extent-property) + (defalias 'message-make-date 'message-xmas-make-date)) (message-xmas-redefine)