lib/markup: emacs/diary.el annotate

author	Henry S. Thompson <ht@inf.ed.ac.uk>
date	Tue, 25 May 2021 13:57:42 -0400
parents
children

rev	line source
0 509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	1 ;; Last edited: Wed Oct 24 17:08:20 1990
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	2 ;; provide a simple diary facility on top of rmailsum
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	3 ;; Copyright (C) 1990 Henry S. Thompson
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	4
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	5 ;; This file is part of GNU Emacs.
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	6
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	7 ;; GNU Emacs is distributed in the hope that it will be useful,
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	8 ;; but WITHOUT ANY WARRANTY. No author or distributor
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	9 ;; accepts responsibility to anyone for the consequences of using it
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	10 ;; or for whether it serves any particular purpose or works at all,
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	11 ;; unless he says so in writing. Refer to the GNU Emacs General Public
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	12 ;; License for full details.
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	13
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	14 ;; Everyone is granted permission to copy, modify and redistribute
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	15 ;; GNU Emacs, but only under the conditions described in the
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	16 ;; GNU Emacs General Public License. A copy of this license is
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	17 ;; supposed to have been given to you along with GNU Emacs so you
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	18 ;; can know your rights and responsibilities. It should be in a
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	19 ;; file named COPYING. Among other things, the copyright notice
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	20 ;; and this notice must be preserved on all copies.
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	21
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	22 (provide 'diary)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	23 (require 'mail-extras)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	24
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	25 (autoload 'sort-subr "sort")
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	26
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	27 (defvar ht-diary-file-name "~/DIARY.babyl"
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	28 "default name of diary file")
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	29
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	30 (defvar ht-Calendar-directory "~/Calendar")
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	31
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	32 (defun xxx-date-lessp (date1 date2)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	33 "Return T if DATE1 is earlyer than DATE2."
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	34 (string-lessp (gnus-comparable-date date1)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	35 (gnus-comparable-date date2)))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	36
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	37 (defun xxx-comparable-date (date)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	38 "Make comparable string by string-lessp from DATE."
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	39 (let ((month '(("JAN" . " 1")("FEB" . " 2")("MAR" . " 3")
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	40 ("APR" . " 4")("MAY" . " 5")("JUN" . " 6")
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	41 ("JUL" . " 7")("AUG" . " 8")("SEP" . " 9")
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	42 ("OCT" . "10")("NOV" . "11")("DEC" . "12")))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	43 (date (or date "")))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	44 ;; Can understand the following styles:
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	45 ;; (1) 14 Apr 89 03:20:12 GMT
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	46 ;; (2) Fri, 17 March 89 4:01:33 GMT
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	47 (if (string-match
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	48 "\\([0-9]+\\) \\([^ ,]+\\) \\([0-9]+\\) \\([0-9:]\\)" date)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	49 (concat
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	50 ;; Year
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	51 (substring date (match-beginning 3) (match-end 3))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	52 ;; Month
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	53 (cdr
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	54 (assoc
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	55 (upcase (substring date
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	56 (match-beginning 2)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	57 (+ 3 (match-beginning 2))))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	58 month))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	59 ;; Day
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	60 (format "%2d" (string-to-int
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	61 (substring date
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	62 (match-beginning 1) (match-end 1))))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	63 ;; Time
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	64 (substring date (match-beginning 4) (match-end 4)))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	65 ;; Cannot understand DATE string.
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	66 date
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	67 )
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	68 ))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	69
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	70 (defun update-default-diary (arg) "update a diary - with arg, the one for
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	71 this file. Without arg, the default (named in ht-diary-file-name)"
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	72 (interactive "P")
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	73 (if arg
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	74 (update-diary (current-buffer))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	75 (require-diary)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	76 (update-diary (get-file-buffer ht-diary-file-name))))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	77
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	78 (defun update-diary (buffer)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	79 ;; (setq rmail-summary-buffer (get-buffer-create "Diary"))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	80 (let ((obuf (current-buffer)))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	81 (set-buffer buffer)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	82 (if (not has-diary-summary)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	83 (progn (make-local-variable 'has-diary-summary)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	84 (setq has-diary-summary t)))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	85 (rmail-summary)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	86 (set-buffer obuf)))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	87
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	88 (defun do-diary-update () "rmail-summary-mode-hook calls this"
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	89 (if (save-excursion (set-buffer rbuf)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	90 has-diary-summary)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	91 (progn
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	92 (make-local-variable 'diary-summary-buffer)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	93 (setq diary-summary-buffer t)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	94 (setq description (concat "Diary " description))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	95 (setq buffer-read-only nil)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	96 (sort-diary-hdrs)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	97 (format-diary-hdrs)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	98 (setq buffer-read-only t)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	99 (not-modified)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	100 (beginning-of-buffer)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	101 (setq mesg nil) ; to go to earliest, not first in file
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	102 )))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	103
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	104 (defun require-diary ()
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	105 (if (not (get-file-buffer ht-diary-file-name))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	106 (progn (rmail-input ht-diary-file-name)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	107 (rmail-show-message 1))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	108 ))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	109
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	110 (defvar diary-summary-buffer nil "flag to identify diary summaries")
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	111 (defvar has-diary-summary nil "flag to identify buffers with diary summaries")
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	112
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	113 (defun sort-diary-hdrs ()
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	114 (interactive)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	115 (goto-char (point-min))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	116 (sort-subr nil 'forward-line 'end-of-line 'get-diary-hdr-date nil))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	117
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	118 (defun format-diary-hdrs ()
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	119 (goto-char (point-min))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	120 (while (< (point)(point-max))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	121 (forward-char 5)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	122 (delete-char 35)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	123 (looking-at " \\([0-9]\\) \\([a-zA-Z]\\) \\([0-9]\\) \\([0-9]\\)")
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	124 (if (match-beginning 0)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	125 (let ((day (buffer-substring (match-beginning 1)(match-end 1)))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	126 (month (capitalize (buffer-substring (match-beginning 2)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	127 (min (+ (match-beginning 2)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	128 3)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	129 (match-end 2)))))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	130 (year (buffer-substring (max
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	131 (- (match-end 3) 2)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	132 (match-beginning 3))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	133 (match-end 3)))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	134 (time (buffer-substring (match-beginning 4)(match-end 4))))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	135 (delete-char (+ 1
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	136 (if (= (match-end 4)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	137 (match-beginning 4))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	138 0 ; fix for no time case
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	139 1)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	140 (- (match-end 4)(match-beginning 1))))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	141 (insert (format " %2s %3s %2s %4s " day month year time))))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	142 (forward-line 1))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	143 (goto-char (point-min)))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	144
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	145 (defun get-diary-hdr-date ()
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	146 (looking-at " [^ ] [^ ] [^ ] \\(.\\)$")
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	147 (xxx-comparable-date (buffer-substring (match-beginning 1)(match-end 1))))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	148
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	149
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	150 (if (not (boundp 'rmail-edit-map))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	151 (load-library "rmailedit"))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	152 (if (not (boundp 'rmail-summary-mode-map))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	153 (progn (load-library "rmailsum")
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	154 (rmail-summary-mode-fun1)))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	155 (define-key rmail-edit-map "\C-c\C-c" 'ht-rmail-cease-edit)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	156 (define-key rmail-edit-map "\C-c\C-]" 'ht-rmail-abort-edit)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	157 ;(defvar diary-mode-map (copy-keymap rmail-summary-mode-map))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	158 ;(define-key diary-mode-map "s" 'diary-save)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	159 (define-key rmail-mode-map "h" 'ht-rmail-summarise)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	160 (setq rmail-summary-mode-hook 'do-diary-update)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	161
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	162 (defvar editing-diary-entry nil)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	163
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	164 (defun diary-save ()
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	165 "save parent file and update"
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	166 (interactive)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	167 (set-buffer rmail-buffer)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	168 (rmail-expunge-and-save)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	169 (if has-diary-summary (update-diary (current-buffer))))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	170
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	171 (defun ht-rmail-summarise ()
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	172 "Display a summary of all messages, one line per message.
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	173 If file is named as ht-diary-file-name, or the summary buffer is already
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	174 a diary summary, make it a Diary summary (see
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	175 \\[describe-mode] rmail-summary-mode for info)."
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	176 (interactive)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	177 (if (eq (current-buffer)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	178 (get-file-buffer ht-diary-file-name))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	179 (update-default-diary t)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	180 (rmail-summary)))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	181
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	182 (defun edit-and-move-to-diary ()
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	183 "try to add a date to subject field, move to diary on exit"
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	184 (interactive)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	185 (make-local-variable 'editing-diary-entry)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	186 (setq editing-diary-entry t)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	187 (rmail-edit-current-message)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	188 (goto-char (point-min))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	189 (search-forward "\n\n")
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	190 (let ((try-date (and
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	191 (re-search-forward
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	192 "[0-9][-0-9 ][- ][a-zA-Z][a-zA-Z][- 0-9]*" nil t)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	193 (buffer-substring (match-beginning 0)(match-end 0)))))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	194 (goto-char (point-min))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	195 (if (and (search-forward "Subject: " nil t)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	196 try-date)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	197 (progn (set-mark (point))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	198 (insert try-date)))))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	199
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	200 ;; private copy to simulate hook
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	201 (defun ht-rmail-cease-edit ()
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	202 "check if diary edit, move if so"
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	203 (interactive)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	204 (rmail-cease-edit)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	205 (if editing-diary-entry
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	206 (progn (setq editing-diary-entry nil)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	207 (ht-output-to-Calendar)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	208 (rmail-output-to-rmail-file ht-diary-file-name 1)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	209 (ht-rmail-delete-forward))))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	210
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	211 ;; try to add a diary subject field line to the appropriate caleendar file
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	212 (defun ht-output-to-Calendar ()
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	213 (goto-char (point-min))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	214 (search-forward "Subject: ")
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	215 (or (looking-at
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	216 "\\([0-9]+\\) \\([A-Za-z]+\\) \\([0-9]+\\) \\([0-9:]\\) ?\\(.\\)\n")
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	217 (error "not a recognisable diary line"))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	218 (let ((day (buffer-substring (match-beginning 1) (match-end 1)))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	219 (month (buffer-substring (match-beginning 2) (match-end 2)))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	220 (year (buffer-substring (match-beginning 3) (match-end 3)))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	221 (time (buffer-substring (match-beginning 4) (match-end 4)))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	222 (message (buffer-substring (match-beginning 5) (match-end 5)))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	223 (mb (match-beginning 4))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	224 (me (match-end 5))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	225 t-month ends)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	226 (if (file-exists-p ht-Calendar-directory)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	227 (let* ((year (if (string-match "^19" year)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	228 year
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	229 (concat "19" year)))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	230 (dfn (concat ht-Calendar-directory
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	231 "/xy"
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	232 year
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	233 "/xc"
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	234 day
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	235 (setq t-month (capitalize
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	236 (substring month 0 3)))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	237 year))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	238 (buf (find-file-noselect dfn)))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	239 (save-excursion
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	240 (set-buffer buf)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	241 (goto-char (point-max))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	242 (if (not (bolp))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	243 (insert "\n"))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	244 (if time
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	245 (insert time " "))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	246 (if (string-match " -- \\(.*\\)$" message)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	247 (progn
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	248 (setq ends (substring message (match-beginning 1)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	249 (match-end 1)))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	250 (setq message (substring message 0 (match-beginning 0)))))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	251 (insert message)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	252 (let ((require-final-newline nil))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	253 (save-buffer)))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	254 (if ends
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	255 ;; an end date also given
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	256 (if (string-match "\\([0-9]+\\) \\([A-Za-z]+\\)" ends)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	257 (let ((e-day (substring ends (match-beginning 1)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	258 (match-end 1)))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	259 (e-month (substring ends (match-beginning 2)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	260 (match-end 2)))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	261 t-e-month msg)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	262 (setq msg (concat
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	263 (substring message 0
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	264 (string-match " " message))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	265 " continues"))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	266 (if (string-equal (setq t-e-month
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	267 (capitalize
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	268 (substring e-month 0 3)))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	269 t-month)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	270 (fill-dates year t-month (1+ (car
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	271 (read-from-string day)))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	272 (car
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	273 (read-from-string e-day))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	274 msg)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	275 (fill-dates year t-month (1+ (car
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	276 (read-from-string day)))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	277 (cdr (assoc t-month
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	278 '(("Jan" . 31)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	279 ("Feb" . 28)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	280 ("Mar" . 31)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	281 ("Apr" . 30)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	282 ("May" . 31)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	283 ("Jun" . 30)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	284 ("Jul" . 31)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	285 ("Aug" . 31)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	286 ("Sep" . 30)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	287 ("Oct" . 31)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	288 ("Nov" . 30)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	289 ("Dec" . 31))))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	290 msg)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	291 (fill-dates year t-e-month 1
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	292 (car (read-from-string e-day))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	293 msg)))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	294 (message "\C-g\C-gCouldn't parse end date: %s" ends)))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	295 ))))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	296
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	297 (defun fill-dates (year month start end mesg)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	298 "fill the dates between start and end with message in the calendar"
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	299 (let ((day start))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	300 (while (<= day end)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	301 (let* ((dfn (concat ht-Calendar-directory
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	302 "/xy"
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	303 year
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	304 "/xc"
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	305 day
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	306 month
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	307 year))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	308 (buf (find-file-noselect dfn)))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	309 (save-excursion
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	310 (set-buffer buf)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	311 (goto-char (point-max))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	312 (if (not (bolp))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	313 (insert "\n"))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	314 (insert mesg)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	315 (let ((require-final-newline nil))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	316 (save-buffer))))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	317 (setq day (1+ day)))))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	318
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	319 ;; private copy
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	320 (defun ht-rmail-abort-edit ()
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	321 "add a hook"
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	322 (interactive)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	323 (setq editing-diary-entry nil)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	324 (rmail-abort-edit))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	325
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	326 (defun rmail-edit-current-message ()
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	327 "Edit the contents of this message."
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	328 (interactive)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	329 (rmail-edit-mode)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	330 (make-local-variable 'rmail-old-text)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	331 (setq rmail-old-text (buffer-substring (point-min) (point-max)))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	332 (setq buffer-read-only nil)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	333 (set-buffer-modified-p (buffer-modified-p))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	334 ;; Make mode line update.
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	335 (if (and (eq (key-binding "\C-c\C-c") 'ht-rmail-cease-edit)
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	336 (eq (key-binding "\C-c\C-]") 'ht-rmail-abort-edit))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	337 (if editing-diary-entry
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	338 (message "Editing: Type C-c C-c to move to diary and return to Rmail, C-c C-] to abort")
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	339 (message "Editing: Type C-c C-c to return to Rmail, C-c C-] to abort"))
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	340 (message (substitute-command-keys
509549c55989 from elsewhere Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	341 "Editing: Type \\[rmail-cease-edit] to return to Rmail, \\[rmail-abort-edit] to abort"))))

0

509549c55989 from elsewhere