(require (quote rmail)) (require (quote hact)) (load "hsmail") (load "rmailedit") (provide (quote rmailedit)) (var:append (quote rmail-show-message-hook) (quote (hmail:msg-narrow))) (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…%ʼn)))ˆ )…4Ì ˆÅ‰ˆ)‡" [toggled tog nil rmail-current-message buffer-read-only t 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-num nil "\ Returns number of Rmail message that point is within." (interactive) (byte-code "ˆÄŠm?…`‰ˆÅÆÂÃ#…, `Uƒ$ÇÈ!‚(T‰ˆ‚)ˆ*‡" [count opoint nil t 0 search-backward "" backward-char 1] 5)) (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 ((byte-code " \"‡" [start end narrow-to-region] 3)) widen 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)) (defun Rmail-Summ-to nil "\ Sets current buffer to a mail listing buffer." (byte-code "Â=… q‡" [major-mode rmail-summary-buffer rmail-mode] 2)) (defun rmail-cease-edit nil "\ Finish editing message; switch back to Rmail proper." (interactive) (byte-code "ĈŠÈ ˆdbˆÉhÊ\"…ËcˆÌ TH`\"ˆÍ )ˆ ÎÏ !ˆÐ ˆ GdeZU…9Ñ Ò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 nil forward-line 2 looking-at "Summary-line: " delete-region 1] 6)) rmail-show-message] 15)) (defun rmail-forward nil "\ Forward the current message to another user." (interactive) (byte-code "ÈÄÅÀ\"ˆpÆÇÈÉÊ!!ËÉÌ!†ÍÎ%ŒÏ ˆÐÀ!ƒ-ÑÃà #‚2ÒÃà #…GŠdbˆÓÔ!ˆÕ !ˆÖe× \"))*‡" [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 narrow-to-region hmail:hbdata-start] 15)) (or (fboundp (quote rmail-get-new-mail)) (load "rmail")) (or (fboundp (quote rmail-get-new)) (fset (quote rmail-get-new) (copy-sequence (symbol-function (quote rmail-get-new-mail))))) (let* ((get-func (symbol-function (quote rmail-get-new))) (param-list (action:param-list get-func))) (eval (list (quote defun) (quote rmail-get-new-mail) (action:params get-func) (documentation (quote rmail-get-new)) (commandp (quote rmail-get-new)) (cons (quote rmail-get-new) param-list) (quote (if (fboundp (quote ep:but-create)) (progn (widen) (ep:but-create) (rmail-show-message))))))) (or (fboundp (quote rmail-new-summary)) (load "rmailsum")) (or (fboundp (quote rmail-summ-new)) (fset (quote rmail-summ-new) (copy-sequence (symbol-function (quote rmail-new-summary))))) (let* ((get-func (symbol-function (quote rmail-summ-new))) (param-list (action:param-list get-func))) (eval (list (quote defun) (quote rmail-new-summary) (action:params get-func) (documentation (quote rmail-summ-new)) (cons (quote rmail-summ-new) param-list) (quote (if (fboundp (quote ep:but-create)) (ep:but-create)))))) (provide (quote hrmail))