
(defvar hmail:composer (quote mail-mode) "\
Major mode for composing mail to be sent with Hyperbole buttons.")

(defvar hmail:lister (quote rmail-summary-mode) "\
Major mode for listing mail header summaries with Hyperbole buttons.")

(defvar hmail:modifier (quote rmail-edit-mode) "\
Major mode for editing received mail with Hyperbole buttons.")

(defvar hmail:reader (quote rmail-mode) "\
Major mode for reading mail with Hyperbole buttons.")

(defun hmail:hbdata-start (&optional msg-start msg-end) "\
Returns point immediately before any Hyperbole button data in current msg.
Returns message end point when no button data is found." (byte-code "Ä ˆ†
 d‰ˆŠbˆÅ	
Ã#ƒ `‚ )‡" [msg-end hmail:hbdata-sep msg-start t widen search-backward] 5))

(defun hmail:hbdata-to-p nil "\
Moves point to Hyperbole but data start in an e-mail msg.
Returns t if button data is found." (byte-code "	
D>ƒ È ˆÃ‚# =ƒ Ã‚# =…# É ˆÃ…7 dbˆÊÇÃ#…7 ËÌ!ˆÃ‡" [major-mode hmail:reader hmail:modifier t hmail:lister hmail:composer hmail:hbdata-sep nil rmail:msg-narrow widen search-backward forward-line 1] 6))

(defun hmail:browser-p nil "\
Returns t iff current major mode helps browse received e-mail messages." (byte-code "	
D>‡" [major-mode hmail:reader hmail:lister] 3))

(defun hmail:editor-p nil "\
Returns t iff current major mode edits Hyperbole e-mail messages." (byte-code "	
D>‡" [major-mode hmail:composer hmail:modifier] 3))

(defun hmail:lister-p nil "\
Returns t iff current major mode is a Hyperbole e-mail lister mode." (byte-code "	=‡" [major-mode hmail:lister] 2))

(defun hmail:mode-is-p nil "\
Returns current major mode if a Hyperbole e-mail mode, else nil." (byte-code "	
F>@‡" [major-mode hmail:reader hmail:composer hmail:modifier hmail:lister] 5))

(defun hmail:msg-narrow (&optional msg-start msg-end) "\
Narrows buffer to displayable part of current message.
Its displayable part begins at optional MSG-START and ends at or before
MSG-END." (byte-code "Â … Ã ˆ† e	† d‰ˆÄÅ	\"\"‡" [msg-start msg-end hmail:reader-p rmail:msg-widen narrow-to-region hmail:hbdata-start] 7))

(defun hmail:reader-p nil "\
Returns t iff current major mode shows received Hyperbole e-mail messages." (byte-code "	
D>‡" [major-mode hmail:reader hmail:modifier] 3))

(defvar rmail:msg-hdr-prefix "\\(^Date: \\|

From [^ 
]+ \\)" "String header preceding an e-mail received message-id.")

(defun rmail:msg-id-get nil "\
Returns current msg id for an 'hmail:reader' buffer as a string, else nil.
Signals error when current mail reader is not supported." (byte-code "Æ	!ÇÈÉÊË\"O!ÌP!Ä
† ÍÎ\"ˆŠÏŽebˆÐÑP!…3 ÒÓÔ!ÕÔ!\"))+‡" [reader hmail:reader hdrs-full-func toggled nil rmail:msg-hdr-prefix symbol-name intern-soft capitalize 0 string-match "-mode$" "-msg-hdrs-full" error "(rmail:msg-id-get): Invalid mail reader: %s" ((byte-code "À‡" [nil] 1)) re-search-forward "\\(.+\\)" buffer-substring match-beginning 2 match-end] 11))

(require (quote hrmail))

(fset (quote rmail:msg-narrow) (quote Rmail-msg-narrow))

(fset (quote rmail:msg-num) (quote Rmail-msg-num))

(fset (quote rmail:msg-to-p) (quote Rmail-msg-to-p))

(fset (quote rmail:msg-widen) (quote Rmail-msg-widen))

(fset (quote rmail:to) (quote Rmail-to))

(fset (quote rmail:edit-quit) (quote rmail-cease-edit))

(fset (quote rmail:get-new) (quote rmail-get-new-mail))

(fset (quote rmail:msg-forward) (quote rmail-forward))

(fset (quote rmail:summ-msg-to) (quote rmail-summary-goto-msg))

(fset (quote rmail:summ-new) (quote rmail-new-summary))

(fset (quote lmail:to) (quote Rmail-Summ-to))

(require (quote hsmail))

(fset (quote smail:send) (quote sendmail-send-it))

(fset (quote smail:yank) (quote mail-yank-original))

(defvar hmail:hbdata-sep "bd" "\
Text separating e-mail msg from any trailing Hyperbole button data.")

(provide (quote hmail))