xemacs: shared/diary.el annotate

annotate shared/diary.el @ 37:fc30f30d88d7

refill and merge

author	Henry S. Thompson <ht@inf.ed.ac.uk>
date	Wed, 22 Nov 2023 22:37:31 +0000
parents	8e0e16f4763c
children

rev	line source
0 107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	1 ;; Last edited: Wed Oct 24 17:08:20 1990
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	2 ;; provide a simple diary facility on top of rmailsum
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	3 ;; Copyright (C) 1990 Henry S. Thompson
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	4
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	5 ;; This file is part of GNU Emacs.
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	6
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	7 ;; GNU Emacs is distributed in the hope that it will be useful,
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	8 ;; but WITHOUT ANY WARRANTY. No author or distributor
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	9 ;; accepts responsibility to anyone for the consequences of using it
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	10 ;; or for whether it serves any particular purpose or works at all,
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope 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
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	12 ;; License for full details.
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	13
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	14 ;; Everyone is granted permission to copy, modify and redistribute
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	15 ;; GNU Emacs, but only under the conditions described in the
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	16 ;; GNU Emacs General Public License. A copy of this license is
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope 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
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	18 ;; can know your rights and responsibilities. It should be in a
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	19 ;; file named COPYING. Among other things, the copyright notice
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	20 ;; and this notice must be preserved on all copies.
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	21
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	22 (provide 'diary)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	23 (require 'mail-extras)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	24
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	25 (autoload 'sort-subr "sort")
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	26
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	27 (defvar ht-diary-file-name "~/DIARY.babyl"
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	28 "default name of diary file")
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	29
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	30 (defvar ht-Calendar-directory "~/Calendar")
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	31
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	32 (defun xxx-date-lessp (date1 date2)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	33 "Return T if DATE1 is earlyer than DATE2."
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	34 (string-lessp (gnus-comparable-date date1)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	35 (gnus-comparable-date date2)))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	36
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	37 (defun xxx-comparable-date (date)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	38 "Make comparable string by string-lessp from DATE."
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	39 (let ((month '(("JAN" . " 1")("FEB" . " 2")("MAR" . " 3")
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	40 ("APR" . " 4")("MAY" . " 5")("JUN" . " 6")
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	41 ("JUL" . " 7")("AUG" . " 8")("SEP" . " 9")
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	42 ("OCT" . "10")("NOV" . "11")("DEC" . "12")))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	43 (date (or date "")))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	44 ;; Can understand the following styles:
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	45 ;; (1) 14 Apr 89 03:20:12 GMT
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	46 ;; (2) Fri, 17 March 89 4:01:33 GMT
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	47 (if (string-match
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	48 "\$[0-9]+\$ \$[^ ,]+\$ \$[0-9]+\$ \$[0-9:]\$" date)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	49 (let ((year (substring date (match-beginning 3) (match-end 3)))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	50 (mn (substring date
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	51 (match-beginning 2)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	52 (+ 3 (match-beginning 2))))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	53 (day (substring date
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	54 (match-beginning 1) (match-end 1)))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	55 (time (substring date (match-beginning 4) (match-end 4))))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	56 (concat
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	57 ;; Year
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	58 (if (= (length year) 2)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	59 (if (string-match "^9" year)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	60 (concat "19" year)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	61 (concat "20" year))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	62 year)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	63 ;; Month
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	64 (cdr
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	65 (assoc
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	66 (upcase mn)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	67 month))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	68 ;; Day
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	69 (format "%2d" (string-to-int day))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	70 ;; Time
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	71 time))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	72 ;; Cannot understand DATE string.
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	73 date
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	74 )
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	75 ))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	76
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	77 (defun update-default-diary (arg) "update a diary - with arg, the one for
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	78 this file. Without arg, the default (named in ht-diary-file-name)"
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	79 (interactive "P")
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	80 (if arg
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	81 (update-diary (current-buffer))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	82 (require-diary)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	83 (update-diary (get-file-buffer ht-diary-file-name))))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	84
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	85 (defun update-diary (buffer)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	86 ;; (setq rmail-summary-buffer (get-buffer-create "Diary"))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	87 (let ((obuf (current-buffer)))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	88 (set-buffer buffer)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	89 (if (not has-diary-summary)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	90 (progn (make-local-variable 'has-diary-summary)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	91 (setq has-diary-summary t)))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	92 (rmail-summary)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	93 (set-buffer obuf)))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	94
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	95 (defun do-diary-update () "rmail-summary-mode-hook calls this"
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	96 (if (save-excursion (set-buffer rbuf)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	97 has-diary-summary)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	98 (progn
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	99 (make-local-variable 'diary-summary-buffer)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	100 (setq diary-summary-buffer t)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	101 (setq description (concat "Diary " description))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	102 (setq buffer-read-only nil)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	103 (sort-diary-hdrs)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	104 (format-diary-hdrs)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	105 (setq buffer-read-only t)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	106 (not-modified)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	107 (beginning-of-buffer)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	108 (setq mesg nil) ; to go to earliest, not first in file
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	109 )))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	110
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	111 (defun require-diary ()
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	112 (if (not (get-file-buffer ht-diary-file-name))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	113 (progn (rmail-input ht-diary-file-name)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	114 (rmail-show-message 1))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	115 ))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	116
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	117 (defvar diary-summary-buffer nil "flag to identify diary summaries")
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	118 (defvar has-diary-summary nil "flag to identify buffers with diary summaries")
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	119
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	120 (defun sort-diary-hdrs ()
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	121 (interactive)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	122 (goto-char (point-min))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	123 (sort-subr nil 'forward-line 'end-of-line 'get-diary-hdr-date nil))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	124
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	125 (defun format-diary-hdrs ()
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	126 (goto-char (point-min))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	127 (while (< (point)(point-max))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	128 (forward-char 5)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	129 (delete-char 35)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	130 (looking-at " \$[0-9]\$ \$[a-zA-Z]\$ \$[0-9]\$ \$[0-9]\$")
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	131 (if (match-beginning 0)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	132 (let ((day (buffer-substring (match-beginning 1)(match-end 1)))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	133 (month (capitalize (buffer-substring (match-beginning 2)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	134 (min (+ (match-beginning 2)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	135 3)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	136 (match-end 2)))))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	137 (year (buffer-substring (max
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	138 (- (match-end 3) 2)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	139 (match-beginning 3))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	140 (match-end 3)))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	141 (time (buffer-substring (match-beginning 4)(match-end 4))))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	142 (delete-char (+ 1
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	143 (if (= (match-end 4)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	144 (match-beginning 4))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	145 0 ; fix for no time case
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	146 1)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	147 (- (match-end 4)(match-beginning 1))))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	148 (insert (format " %2s %3s %2s %4s " day month year time))))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	149 (forward-line 1))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	150 (goto-char (point-min)))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	151
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	152 (defun get-diary-hdr-date ()
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	153 (looking-at " [^ ] [^ ] [^ ] \$.\$$")
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	154 (xxx-comparable-date (buffer-substring (match-beginning 1)(match-end 1))))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	155
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	156
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	157 (if (not (boundp 'rmail-edit-map))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	158 (load-library "rmailedit"))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	159 (if (not (boundp 'rmail-summary-mode-map))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	160 (progn (load-library "rmailsum")
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	161 (rmail-summary-mode-fun1)))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	162 (define-key rmail-edit-map "\C-c\C-c" 'ht-rmail-cease-edit)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	163 (define-key rmail-edit-map "\C-c\C-]" 'ht-rmail-abort-edit)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	164 ;(defvar diary-mode-map (copy-keymap rmail-summary-mode-map))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	165 ;(define-key diary-mode-map "s" 'diary-save)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	166 (define-key rmail-mode-map "h" 'ht-rmail-summarise)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	167 (setq rmail-summary-mode-hook 'do-diary-update)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	168
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	169 (defvar editing-diary-entry nil)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	170
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	171 (defun diary-save ()
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	172 "save parent file and update"
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	173 (interactive)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	174 (set-buffer rmail-buffer)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	175 (rmail-expunge-and-save)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	176 (if has-diary-summary (update-diary (current-buffer))))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	177
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	178 (defun ht-rmail-summarise ()
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	179 "Display a summary of all messages, one line per message.
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	180 If file is named as ht-diary-file-name, or the summary buffer is already
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	181 a diary summary, make it a Diary summary (see
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	182 \\[describe-mode] rmail-summary-mode for info)."
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	183 (interactive)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	184 (if (eq (current-buffer)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	185 (get-file-buffer ht-diary-file-name))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	186 (update-default-diary t)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	187 (rmail-summary)))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	188
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	189 (defun edit-and-move-to-diary ()
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	190 "try to add a date to subject field, move to diary on exit"
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	191 (interactive)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	192 (make-local-variable 'editing-diary-entry)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	193 (setq editing-diary-entry t)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	194 (rmail-edit-current-message)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	195 (goto-char (point-min))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	196 (search-forward "\n\n")
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	197 (let ((try-date (and
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	198 (re-search-forward
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	199 "[0-9][-0-9 ][- ][a-zA-Z][a-zA-Z][- 0-9]*" nil t)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	200 (buffer-substring (match-beginning 0)(match-end 0))))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	201 sublp)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	202 (goto-char (point-min))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	203 (setq sublp (search-forward "Subject: " nil t))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	204 (if try-date
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	205 (progn (set-mark (point))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	206 (insert try-date)))))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	207
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	208 (defun gnus-edit-and-move-to-diary (&optional no-delete)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	209 "try to add a date to subject field, move to diary on exit"
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	210 (interactive "P")
3 0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	211 (let ((flush-shell nil))
0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	212 (when (and (not (and no-delete (cdr no-delete)))
0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	213 (gnus-group-read-only-p))
0 107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	214 (error "The current newsgroup does not support article editing"))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	215 ;; Select article if needed.
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	216 (unless (eq (gnus-summary-article-number)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	217 gnus-current-article)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	218 (gnus-summary-select-article t))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	219 (gnus-article-date-original)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	220 (message "About to forward. . .")
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	221 (gnus-summary-mail-forward 1)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	222 (message "Begin forward. . .")
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	223 (goto-char (point-min))
5 8e0e16f4763c tweaks, over quite a stretch of time ... Henry S. Thompson <ht@inf.ed.ac.uk> parents: 3 diff changeset	224 (re-search-forward "^To: " nil t)
8e0e16f4763c tweaks, over quite a stretch of time ... Henry S. Thompson <ht@inf.ed.ac.uk> parents: 3 diff changeset	225 ;(forward-char 4)
0 107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	226 (insert "htcalendar@markup.co.uk")
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	227 (search-forward "------ Start of forwarded")
3 0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	228 (save-excursion
0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	229 (when (and (bufferp (get-buffer "Shell Command Output"))
0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	230 (not (re-search-forward
0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	231 "^--0000.[[:space:]]Content-Type: text/plain" nil t nil
0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	232 (get-buffer " Original Article")))
0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	233 (search-forward "<html" nil t))
0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	234 (backward-char 5)
0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	235 (push-mark nil t)
0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	236 (re-search-forward "</html>[[:space:]]*")
0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	237 (exchange-point-and-mark)
0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	238 (use-text-not-html t)
0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	239 (let ((pos (point)))
0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	240 (when (search-backward "type=text/html" nil t)
0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	241 (replace-match "type=text/plain")
0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	242 (goto-char (+ pos 1))))
0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	243 (setq flush-shell t)
0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	244 ))
0 107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	245 (let (sublp)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	246 (save-excursion
3 0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	247 (goto-char (point-min))
0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	248 (setq sublp (search-forward "Subject: " nil t))
0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	249 (delete-region (point)(progn (search-forward "] " nil t)))
0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	250 (if (not
0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	251 (looking-at "[123]?[0-9] [JFMASOND][a-z][a-z] (20)?[2-9][0-9] "))
0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	252 (save-excursion
0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	253 (let ((try-date
0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	254 (and
0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	255 (or (re-search-forward "^\r?$" nil 1) t)
0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	256 (re-search-forward
0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	257 "[0-9][-0-9 ][- ][jfmasondJFMASOND][a-zA-Z][- 0-9]*"
0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	258 (save-excursion (search-forward "\n--\n" nil t))
0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	259 t)
0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	260 (buffer-substring (match-beginning 0)(match-end 0)))))
0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	261 (message (format "date: \|%s\| %s" try-date sublp))
0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	262 (if (and sublp
0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	263 try-date)
0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	264 (progn (set-mark (point))
0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	265 (insert try-date)))))))
0 107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	266 (make-local-hook 'message-send-hook)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	267 (if (and no-delete (equal (car no-delete) 16))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	268 (let ((hook '(lambda ()
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	269 (ht-gnus-cease-edit nil)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	270 nil t)))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	271 (add-hook 'message-send-hook hook nil t)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	272
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	273 (message-send-and-exit)
3 0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	274 (if (cdr no-delete)
0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	275 ;; called directly from splitting an ht+d message...
0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	276 "_doom"
0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	277 (if (not (gnus-summary-next-unread-article))
0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	278 (gnus-summary-exit))))
0 107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	279 (add-hook 'message-send-hook
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	280 `(lambda ()
3 0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	281 (ht-gnus-cease-edit ',no-delete ',flush-shell)
0 107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	282 ; (gnus-summary-edit-article-done
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	283 ; ,(or (mail-header-references gnus-current-headers) "")
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	284 ; ,(gnus-group-read-only-p) ,gnus-summary-buffer nil)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	285 ; (switch-to-buffer gnus-summary-buffer)))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	286 ; (goto-char (point-min))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	287 ; (search-forward "\nSubject: " nil t))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	288 )
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	289 nil t)
3 0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	290 (split-window-vertically 6)
0 107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	291 (other-window 1)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	292 (search-forward "\n\n" nil t)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	293 (other-window 1)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	294 (goto-char sublp)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	295 (message "Exiting to buffer, we hope")))
3 0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	296 )
0 107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	297 )
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	298
3 0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	299 (defun ht-gnus-cease-edit (&optional no-delete flush-shell)
0 107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	300 "check if diary edit, move if so"
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	301 (interactive "P")
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	302 (message "ceasing. . .")
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	303 (ht-forward-to-Calendar)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	304 (let ((rmail-summary-redo '(rmail-summary)))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	305 (gnus-output-to-rmail ht-diary-file-name)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	306 )
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	307 (unless no-delete
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	308 (with-current-buffer gnus-summary-buffer
3 0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	309 (gnus-summary-move-article 1 "nnml+ht:_doom")))
0 107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	310 (if (get-buffer "diary.babyl-summary")
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	311 (kill-buffer "diary.babyl-summary"))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	312 (with-current-buffer "diary.babyl"
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	313 (rmail-mode)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	314 (save-buffer)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	315 (ht-rmail-summarise))
3 0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	316 (if flush-shell
0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	317 (let ((sb (get-buffer "Shell Command Output")))
0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	318 (if (bufferp sb)
0a81352bd7d0 catch up Henry S. Thompson <ht@inf.ed.ac.uk> parents: 0 diff changeset	319 (kill-buffer sb))))
0 107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	320 (message "ceased"))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	321
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	322 (defun ht-gnus-summary-save-in-diary (&optional filename)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	323 (gnus-eval-in-buffer-window gnus-save-article-buffer
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	324 (save-excursion
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	325 (save-restriction
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	326 (widen)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	327 (gnus-output-to-rmail ht-diary-file-name)))))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	328
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	329 ;; private copy to simulate hook
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	330 (defun ht-rmail-cease-edit ()
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	331 "check if diary edit, move if so"
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	332 (interactive)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	333 (rmail-cease-edit)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	334 (if editing-diary-entry
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	335 (progn (setq editing-diary-entry nil)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	336 (ht-forward-to-Calendar)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	337 (rmail-output-to-rmail-file ht-diary-file-name 1)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	338 (ht-rmail-delete-forward))))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	339
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	340 ;; try to add a diary subject field line to the appropriate calendar file
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	341 (defun ht-forward-to-Calendar ()
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	342 (goto-char (point-min))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	343 (search-forward "Subject: ")
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	344 (or (looking-at
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	345 "\$[0-9]+\$ \$[A-Za-z]+\$ \$[0-9]+\$ \$[0-9:]\$ ?\$.\$\n")
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	346 (error "not a recognisable diary line"))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	347 (let ((day (buffer-substring (match-beginning 1) (match-end 1)))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	348 (month (buffer-substring (match-beginning 2) (match-end 2)))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	349 (year (buffer-substring (match-beginning 3) (match-end 3)))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	350 (time (buffer-substring (match-beginning 4) (match-end 4)))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	351 (message (buffer-substring (match-beginning 5) (match-end 5)))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	352 (mb (match-beginning 4))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	353 (me (match-end 5))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	354 ends e-day e-month fn)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	355 (let ((year (if (string-match "^\$19\\\|20\$.." year)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	356 year
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	357 (if (eq (length year) 2)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	358 (concat "20" year)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	359 (progn (if (and (equal time "")(eq (length year) 4))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	360 (setq time year))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	361 (format-time-string "%Y")))))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	362 (t-month (capitalize
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	363 (substring month 0 3))))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	364 (let* ((n-day (read day))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	365 (mon-table '((Jan . 1)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	366 (Feb . 2)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	367 (Mar . 3)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	368 (Apr . 4)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	369 (May . 5)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	370 (Jun . 6)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	371 (Jul . 7)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	372 (Aug . 8)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	373 (Sep . 9)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	374 (Oct . 10)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	375 (Nov . 11)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	376 (Dec . 12)))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	377 (a-month (assq (read t-month)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	378 mon-table))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	379 (n-month (if a-month (cdr a-month) 0))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	380 (u-time (if (equal time "") "0" time))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	381 (hour (/ (read u-time) 100))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	382 (minute (mod (read u-time) 100))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	383 (nhour (if (> minute 29)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	384 (+ 1 hour)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	385 hour))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	386 (nminute (if (> minute 29)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	387 (- minute 30)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	388 (+ minute 30)))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	389 (n-year (read year))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	390 (r-subj (mail-fetch-field "Subject"))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	391 (body (save-excursion
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	392 (buffer-substring
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	393 (progn
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	394 (goto-char (point-min))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	395 (if (re-search-forward "^\r?$" nil 1)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	396 (match-beginning 0)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	397 (point-max)))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	398 (point-max))))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	399 (subj-matches (string-match "^\$[^(]\$\$(\\(.\$)\\)?"
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	400 message))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	401 (np-subj (match-string 1 message))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	402 (p-subj (or (match-string 3 message) ""))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	403 (uid (or (mail-fetch-field "Message-id")
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	404 (let ((ct (current-time)))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	405 (format "%d-%d-%d"
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	406 (car ct)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	407 (cadr ct)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	408 (caddr ct)))))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	409 )
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	410 (if (string-match " -- \$.*\$$" message)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	411 (progn
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	412 (setq ends (substring message (match-beginning 1)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	413 (match-end 1)))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	414 (setq message (substring message 0 (match-beginning 0)))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	415 (if (string-match "\$[0-9]+\$ \$[A-Za-z]+\$" ends)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	416 (progn
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	417 (setq e-day (substring ends (match-beginning 1)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	418 (match-end 1)))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	419 (setq e-month (assq
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	420 (read (capitalize
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	421 (substring
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	422 (substring ends (match-beginning 2)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	423 (match-end 2))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	424 0 3)))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	425 mon-table))))))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	426 (setq fn (build-vcal-message (my-time-iso8601
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	427 (encode-time
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	428 0 minute
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	429 hour
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	430 n-day
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	431 n-month
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	432 n-year))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	433 (my-time-iso8601
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	434 (if e-day
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	435 (encode-time
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	436 0 (if (eq hour 0) 30 minute) ;nminute
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	437 (if (eq hour 0) 23 hour) ; nhour
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	438 (read e-day)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	439 (if e-month (cdr e-month) 0)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	440 n-year)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	441 (encode-time
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	442 0 minute ; nminute
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	443 (+ hour 1) ; nhour
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	444 n-day
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	445 n-month
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	446 n-year)))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	447 "ORGANIZER;CN=\"Henry S. Thompson\":mailto:htcalendar@markup.co.uk"
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	448 ;(concat "ORGANIZER:" (mail-fetch-field "From"))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	449 p-subj
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	450 body
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	451 np-subj
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	452 (concat "ht-vcal-" uid)))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	453 (if fn
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	454 (progn
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	455 (goto-char (point-min))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	456 (if (search-forward "<#multipart " nil t)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	457 (progn
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	458 (if (search-forward "<#multipart type=alternative" nil t)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	459 (beginning-of-line)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	460 (forward-line 2)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	461 ;; now at beginning of forwarded text
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	462 (if (search-forward "<#part " nil t)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	463 (progn
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	464 ;; now at beginning of _attachments_
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	465 (beginning-of-line))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	466 ;; no attachments, probably never happens
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	467 (search-forward "<#/multipart>"))))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	468 ;; plain text, make it multipart
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	469 (search-forward "-------- Start of forwarded")
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	470 (re-search-forward "^\r?$")
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	471 (forward-line 1)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	472 (insert "<#multipart type=mixed>\n<#part type=text/plain charset=\"ISO-8859-1\" format=\"flowed\" disposition=inline nofile=yes>\n")
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	473 (search-forward "--------- End of forwarded")
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	474 (forward-line -1)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	475 (insert "<#/multipart>\n")
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	476 (forward-line -1))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	477 (mml-attach-file fn "application/octet-stream" "diary event")
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	478 ; (let ((res (shell-command-to-string
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	479 ; (concat "updateCal.pl < " fn))))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	480 ; (if (not (equal res ""))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	481 ; (message (format "update losing: %s" res))))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	482 )))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	483 (if (file-exists-p ht-Calendar-directory)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	484 (let* ((dfn (concat ht-Calendar-directory
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	485 "/xy"
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	486 year
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	487 "/xc"
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	488 day
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	489 t-month
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	490 year))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	491 (buf (find-file-noselect dfn))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	492 )
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	493 (save-excursion
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	494 (set-buffer buf)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	495 (goto-char (point-max))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	496 (if (not (bolp))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	497 (insert "\n"))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	498 (if time
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	499 (insert time " "))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	500 (insert message)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	501 (let ((require-final-newline nil))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	502 (save-buffer)))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	503 (if ends
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	504 ;; an end date also given
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	505 (if e-day
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	506 (let (t-e-month msg)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	507 (setq msg (concat
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	508 (substring message 0
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	509 (string-match " " message))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	510 " continues"))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	511 (if (string-equal (setq t-e-month
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	512 (if e-month (car e-month)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	513 t-month))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	514 t-month)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	515 (fill-dates year t-month (1+ (car
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	516 (read-from-string day)))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	517 (car
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	518 (read-from-string e-day))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	519 msg)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	520 (fill-dates year t-month (1+ (car
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	521 (read-from-string day)))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	522 (cdr (assoc t-month
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	523 '(("Jan" . 31)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	524 ("Feb" . 28)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	525 ("Mar" . 31)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	526 ("Apr" . 30)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	527 ("May" . 31)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	528 ("Jun" . 30)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	529 ("Jul" . 31)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	530 ("Aug" . 31)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	531 ("Sep" . 30)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	532 ("Oct" . 31)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	533 ("Nov" . 30)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	534 ("Dec" . 31))))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	535 msg)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	536 (fill-dates year t-e-month 1
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	537 (car (read-from-string e-day))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	538 msg)))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	539 (message "\C-g\C-gCouldn't parse end date: %s" ends)))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	540 )))))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	541
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	542 (defun fill-dates (year month start end mesg)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	543 "fill the dates between start and end with message in the calendar"
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	544 (let ((day start))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	545 (while (<= day end)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	546 (let* ((dfn (concat ht-Calendar-directory
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	547 "/xy"
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	548 year
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	549 "/xc"
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	550 (format "%d" day)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	551 (format "%s" month)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	552 year))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	553 (buf (find-file-noselect dfn)))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	554 (save-excursion
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	555 (set-buffer buf)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	556 (goto-char (point-max))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	557 (if (not (bolp))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	558 (insert "\n"))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	559 (insert mesg)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	560 (let ((require-final-newline nil))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	561 (save-buffer))))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	562 (setq day (1+ day)))))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	563
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	564 ;; private copy
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	565 (defun ht-rmail-abort-edit ()
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	566 "add a hook"
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	567 (interactive)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	568 (setq editing-diary-entry nil)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	569 (rmail-abort-edit))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	570
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	571 (defun rmail-edit-current-message ()
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	572 "Edit the contents of this message."
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	573 (interactive)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	574 (rmail-edit-mode)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	575 (make-local-variable 'rmail-old-text)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	576 (setq rmail-old-text (buffer-substring (point-min) (point-max)))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	577 (setq buffer-read-only nil)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	578 (set-buffer-modified-p (buffer-modified-p))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	579 ;; Make mode line update.
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	580 (if (and (eq (key-binding "\C-c\C-c") 'ht-rmail-cease-edit)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	581 (eq (key-binding "\C-c\C-]") 'ht-rmail-abort-edit))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	582 (if editing-diary-entry
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	583 (message "Editing: Type C-c C-c to move to diary and return to Rmail, C-c C-] to abort")
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	584 (message "Editing: Type C-c C-c to return to Rmail, C-c C-] to abort"))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	585 (message (substitute-command-keys
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	586 "Editing: Type \\[rmail-cease-edit] to return to Rmail, \\[rmail-abort-edit] to abort"))))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	587
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	588
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	589 (defun build-vcal-message (start end org location description summary uid)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	590 (save-excursion
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	591 (let ((fn (concat "/tmp/" (make-temp-name "vcal") ".vcs")))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	592 (find-file fn)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	593 (insert "BEGIN:VCALENDAR\nMETHOD:PUBLISH\nPRODID:-//Henry S. Thompson//gnus diary hack//EN\nVERSION:0.1\nBEGIN:VEVENT\n")
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	594 (insert "UID\n :")(insert uid)(insert "\n")
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	595 (insert "SUMMARY")(insert-encoded-maybe summary)(insert "\n")
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	596 (insert "DESCRIPTION")(insert-folded description)(insert "\r\n")
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	597 (insert "LOCATION")(insert-encoded-maybe location)(insert "\n")
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	598 (insert "DTSTART\n :")(insert start)(insert "Z\n")
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	599 (insert "DTEND\n :")(insert end)(insert "Z\n")
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	600 (insert "DTSTAMP\n :")(insert
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	601 (my-time-iso8601 (current-time)))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	602 (insert "Z\n")
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	603 ;(insert "ORGANIZER")(insert-encoded-maybe org)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	604 (insert org)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	605 (insert "\n")
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	606 (insert "BEGIN:VALARM\nTRIGGER:-PT15M\nACTION:DISPLAY\nDESCRIPTION:Reminder\nEND:VALARM\n")
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	607 (insert "BEGIN:VALARM\nTRIGGER:-PT15M\nACTION:AUDIO\nDESCRIPTION:Reminder\nEND:VALARM\n")
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	608 (insert "END:VEVENT\nEND:VCALENDAR\n")
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	609 (save-buffer)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	610 fn)))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	611
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	612 (defun insert-encoded-maybe (string)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	613 (if (string-match "[\000-\007\n\013\015-\037\200-\377=]" string)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	614 (progn
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	615 (insert ";ENCODING=QUOTED-PRINTABLE:")
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	616 (let ((beg (point)))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	617 (insert string)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	618 (message (format "%d;%d" beg (point)))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	619 (quoted-printable-encode-region
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	620 beg
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	621 (point)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	622 t
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	623 "^\000-\007\n\013\015-\037\200-\377="))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	624 (goto-char (point-max)))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	625 (insert "\n :")
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	626 (insert string)))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	627
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	628 (defun insert-folded (string)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	629 (insert "\n :")
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	630 (let ((beg (point)))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	631 (insert string)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	632 (narrow-to-region beg (point))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	633 (goto-char (point-min))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	634 (replace-string "\n" "\\n")
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	635 (goto-char (point-min))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	636 (replace-string "\r" "")
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	637 (goto-char (point-min))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	638 (replace-string "," "\\,")
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	639 (goto-char (point-min))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	640 (while (> (- (point-max) (point)) 72)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	641 (forward-char 70)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	642 (insert "\n "))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	643 (goto-char (point-max))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	644 (insert "\r\n")
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	645 (widen)))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	646
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	647 (defun my-time-iso8601 (time)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	648 (let ((tzo (car (current-time-zone time)))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	649 (hi (car time))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	650 (lo (cadr time))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	651 (ignore (cddr time)))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	652 (gnus-time-iso8601
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	653 (if (>= lo tzo)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	654 (cons hi
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	655 (cons (- lo tzo)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	656 ignore))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	657 (cons (- hi 1)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	658 (cons (- (+ lo 65536) tzo)
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	659 ignore)))
107d592c5f4a DICE versions, used by pers/common, recursive, I think/hope Henry S. Thompson <ht@inf.ed.ac.uk> parents: diff changeset	660 )))

Mercurial > hg > xemacs

annotate shared/diary.el @ 37:fc30f30d88d7