(require (quote hmail)) (require (quote hact)) (load "hsmail") (require (quote rmail)) (load "rmailedit") (provide (quote rmailedit)) (defun Rmail-init nil "\ Initializes Hyperbole support for Rmail mail reading." (interactive) (byte-code "ÄÅÆljˆÈÉÊ\"ˆË ˆÌÍMˆÎÏMˆÐÑMˆÒÓMˆt…)ÔÕ!‡" [hmail:composer hmail:lister hmail:modifier hmail:reader mail-mode rmail-summary-mode rmail-edit-mode rmail-mode var:append rmail-show-message-hook (hmail:msg-narrow) rmail:init rmail:get-new rmail-get-new-mail rmail:msg-forward rmail-forward rmail:summ-msg-to rmail-summary-goto-msg rmail:summ-new rmail-new-summary message "Hyperbole RMAIL mail reader support initialized."] 4)) (defun Rmail-msg-hdrs-full (toggled) "\ If TOGGLED is non-nil, toggle full/hidden headers, else show full headers." (byte-code "Š†+ÅŠŒÆ ˆÇÈ !d\"ˆÅebˆÉÊ!ˆgËU…%ĉ)))ˆ )…4Ì ˆÄ‰ˆ)‡" [toggled tog rmail-current-message buffer-read-only t nil rmail-maybe-set-message-counters narrow-to-region rmail-msgbeg forward-line 1 49 rmail-toggle-header] 7)) (defun Rmail-msg-narrow nil "\ Narrows mail reader buffer to current message. This includes Hyperbole button data." (byte-code "à !Ä !Å \"*‡" [beg rmail-current-message end rmail-msgbeg rmail-msgend narrow-to-region] 5)) (defun Rmail-msg-next nil (rmail-next-undeleted-message 1)) (defun Rmail-msg-num nil "\ Returns number of Rmail message that point is within." (interactive) (byte-code "ÄŠm?…`‰ˆÅÆÂÃ#…* `Uƒ\"ÇÈ!‚&T‰ˆ‚)ˆ*‡" [count opoint nil t 0 re-search-backward "^" backward-char 1] 5)) (defun Rmail-msg-prev nil (rmail-previous-undeleted-message 1)) (defun Rmail-msg-to-p (mail-msg-id mail-file) "\ Sets current buffer to start of msg with MAIL-MSG-ID in MAIL-FILE. Returns t if successful, else nil." (byte-code "È!?ƒ Á‚FÉ! ƒ#Ê !ˆ Ë=† Ì!‚&Ì!)ˆÍ ˆÎbˆÏ Ð!PÁÄ#…FĉˆÑÒ !ˆÄ‡" [mail-file nil buf major-mode t rmail:msg-hdr-prefix mail-msg-id buffer-read-only file-readable-p get-file-buffer switch-to-buffer rmail-mode rmail widen 1 re-search-forward regexp-quote rmail-show-message Rmail-msg-num] 11)) (defun Rmail-msg-widen nil "\ Widens buffer to full current message including Hyperbole button data." (byte-code "edÄŽŠÅ ˆÆÇÂÃ#…ÈÉ!ˆ`‰))*‡" [start end nil t ((narrow-to-region start end)) widen re-search-forward "^" forward-char -1] 5)) (defun Rmail-to nil "\ Sets current buffer to a mail reader buffer." (byte-code "Â=… q‡" [major-mode rmail-buffer rmail-summary-mode] 2)) (byte-code "ÀÁMˆÂÃMˆÄÅM‡" [Rmail-Summ-delete rmail-summary-delete-forward Rmail-Summ-expunge rmail-summary-expunge Rmail-Summ-goto rmail-summary-goto-msg] 2) (defun Rmail-Summ-to nil "\ Sets current buffer to a mail listing buffer." (byte-code "Â=… q‡" [major-mode rmail-summary-buffer rmail-mode] 2)) (fset (quote Rmail-Summ-undelete-all) (quote rmail-summary-undelete-many)) (defun rmail-cease-edit nil "\ Finish editing message; switch back to Rmail proper." (interactive) (byte-code "ŠÈ ˆdbˆÉhÊ\"…ËcˆÌ TH`\"ˆÍ )ˆ ÎÏ !ˆÐ ˆ GdeZU…7Ñ Òed\"\"ƒ>Ä‚\\ĉˆÓÔÅ\"ˆÕÆ!…\\ SÄIˆŠÖ×!ˆØ ))ˆÅ‰‡" [rmail-message-vector rmail-current-message old rmail-old-text nil t rmail-summary-vector buffer-read-only Rmail-msg-widen /= 10 " " set-marker hmail:msg-narrow set-buffer-modified-p buffer-modified-p rmail-mode-1 string= buffer-substring rmail-set-attribute "edited" boundp rmail-widen-to-current-msgbeg (lambda nil (byte-code "ÁÂ!ˆÃÄ!…ÅÆ`ÁÇ!ˆ`\")‡" [buffer-read-only forward-line 2 looking-at "Summary-line: " nil delete-region 1] 6)) rmail-show-message] 15)) (defun rmail-forward nil "\ Forward the current message to another user." (interactive) (byte-code "ÄÅÀ\"ˆpÆÇÈÉÊ!!ËÉÌ!†ÍÎ%ŒÏ ˆÐÀ!ƒ+ÑÃà #‚0ÒÃà #…BŠdbˆÓÔ!ˆÕ !ˆÖ ))*‡" [t forward-buffer subject nil rmail-set-attribute "forwarded" concat "[" mail-strip-quoted-names mail-fetch-field "From" ": " "Subject" "" "]" Rmail-msg-widen one-window-p mail mail-other-window forward-line 1 insert-buffer hmail:msg-narrow] 13)) (byte-code "ÂÃ!† ÃÄÅ!MˆÃKÆ!ÇÈÉÅÊ!ËÃ!ÌÃ!à BÍ&!*ˆÂÎ!†2ÏÐ!ˆÂÑ!†>ÑÄÎ!MˆÑKÆ!ÇÈÉÎÊ!ËÑ!ÒÓ BBÔ&!*ˆÕÖ!‡" [get-func param-list fboundp rmail-get-new hypb:function-copy rmail-get-new-mail action:param-list eval list defun action:params documentation commandp (if (fboundp (quote ep:but-create)) (progn (widen) (ep:but-create) (rmail-show-message))) rmail-new-summary load "rmailsum" rmail-summ-new apply (quote rmail-summ-new) (if (fboundp (quote ep:but-create)) (ep:but-create)) provide hrmail] 24)