Documentation of `message-position-on-field'

Documentation of `message-position-on-field'

[Micha Wiedenmann]

Hi,

could explain the use of `narrow-to-region' in
`message-position-on-field'. I think it doesn't do anything.

What about a Docstring:
  "Move point to HEADER. Insert HEADER after first matching AFTERS if
HEADER does not exits."

,----
| (defun message-position-on-field (header &rest afters)
|   (let ((case-fold-search t))
|     (save-restriction
|       (narrow-to-region
|        (goto-char (point-min))
|        (progn
| 	 (re-search-forward
| 	  (concat "^" (regexp-quote mail-header-separator) "$"))
| 	 (match-beginning 0)))
|       (goto-char (point-min))
|       (if (re-search-forward (concat "^" (regexp-quote header) ":") nil t)
| 	  (progn
| 	    (re-search-forward "^[^ \t]" nil 'move)
| 	    (beginning-of-line)
| 	    (skip-chars-backward "\n")
| 	    t)
| 	(while (and afters
| 		    (not (re-search-forward
| 			  (concat "^" (regexp-quote (car afters)) ":")
| 			  nil t)))
| 	  (pop afters))
| 	(when afters
| 	  (re-search-forward "^[^ \t]" nil 'move)
| 	  (beginning-of-line))
| 	(insert header ": \n")
| 	(forward-char -1)
| 	nil))))
`----

TIA, Micha
-- 
Bus error -- driver executed.

Re: Documentation of `message-position-on-field'

[Kai Großjohann]

Micha Wiedenmann <mw-u1@gmx.de> writes:

> could explain the use of `narrow-to-region' in
> `message-position-on-field'. I think it doesn't do anything.

Without narrow-to-region, it would find lines that look like headers
but are in the body.

kai
-- 
~/.signature is: umop 3p!sdn    (Frank Nobis)