Mercurial > hg > xemacs
comparison shared/diary.el @ 5:8e0e16f4763c
tweaks, over quite a stretch of time ...
| author | Henry S. Thompson <ht@inf.ed.ac.uk> |
|---|---|
| date | Fri, 06 Oct 2023 19:01:47 +0100 |
| parents | 0a81352bd7d0 |
| children |
comparison
equal
deleted
inserted
replaced
| 4:18db20bcc65b | 5:8e0e16f4763c |
|---|---|
| 219 (gnus-article-date-original) | 219 (gnus-article-date-original) |
| 220 (message "About to forward. . .") | 220 (message "About to forward. . .") |
| 221 (gnus-summary-mail-forward 1) | 221 (gnus-summary-mail-forward 1) |
| 222 (message "Begin forward. . .") | 222 (message "Begin forward. . .") |
| 223 (goto-char (point-min)) | 223 (goto-char (point-min)) |
| 224 (search-forward "^To: " nil t) | 224 (re-search-forward "^To: " nil t) |
| 225 (forward-char 4) | 225 ;(forward-char 4) |
| 226 (insert "htcalendar@markup.co.uk") | 226 (insert "htcalendar@markup.co.uk") |
| 227 (search-forward "------ Start of forwarded") | 227 (search-forward "------ Start of forwarded") |
| 228 (save-excursion | 228 (save-excursion |
| 229 (when (and (bufferp (get-buffer "*Shell Command Output*")) | 229 (when (and (bufferp (get-buffer "*Shell Command Output*")) |
| 230 (not (re-search-forward | 230 (not (re-search-forward |