Function: ietf-drums-get-comment

ietf-drums-get-comment is a byte-compiled function defined in ietf-drums.el.gz.

Signature

(ietf-drums-get-comment STRING)

Documentation

Return the last comment in STRING.

Aliases

mail-header-get-comment

Source Code

;; Defined in /usr/src/emacs/lisp/mail/ietf-drums.el.gz
(defun ietf-drums-get-comment (string)
  "Return the last comment in STRING."
  (with-temp-buffer
    (ietf-drums-init string)
    (let (result c)
      (while (not (eobp))
	(setq c (char-after))
	(cond
	 ((eq c ?\")
	  (forward-sexp 1))
	 ((eq c ?\()
	  (setq result
		(buffer-substring
		 (1+ (point))
		 (progn (forward-sexp 1) (1- (point))))))
	 (t
	  (forward-char 1))))
      result)))