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-20260822.1645/hsmail.el
;;; ************************************************************************
;;; 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))))))))