Function: smail:comment-add

smail:comment-add is a byte-compiled function defined in hsmail.el.

Signature

(smail:comment-add &optional COMMENT-FORM)

Documentation

Add a comment to the current outgoing message.

Only if Hyperbole has been loaded and inhibit-hyperbole-messaging is nil. Optional COMMENT-FORM is evaluated to obtain the string to add to the message. If not given, smail:comment is evaluated by default.

Source Code

;; Defined in ~/.emacs.d/elpa/hyperbole-20260414.325/hsmail.el
;; Used by 'mail-send' in Emacs "sendmail.el".
;; message-mode has replaced mail-mode, so remove the following hook
;; -- rsw 2025-05-26
;; (add-hook 'mail-send-hook  #'smail:widen)

;; For compatibility with Supercite and GNU Emacs.
;; message-mode defines message-yank-prefix - mail-yank-prefix removed
;; message-mode defines message-indentation-spaces - mail-indentation-spaces removed
;; message-mode defines message-reply-buffer - mail-reply-buffer removed

;;; ************************************************************************
;;; Overloaded functions
;;; ************************************************************************

(defun smail:comment-add (&optional comment-form)
  "Add a comment to the current outgoing message.
Only if Hyperbole has been loaded and `inhibit-hyperbole-messaging' is nil.
Optional COMMENT-FORM is evaluated to obtain the string to add to the
message.  If not given, `smail:comment' is evaluated by default."
  (if (and (featurep 'hyperbole) (not inhibit-hyperbole-messaging))
      (let ((comment (eval (or comment-form smail:comment) t)))
	(if comment
	    (save-excursion
	      (goto-char (point-min))
	      (and (or (search-forward mail-header-separator nil t)
		       (if (derived-mode-p 'mh-letter-mode)
			   (search-forward "\n--------" nil t)))
		   (not (search-backward comment nil t))
		   (progn (beginning-of-line) (insert comment))))))))