2006-04-15 Lars Magne Ingebrigtsen <larsi@gnus.org>
+ * hashcash.el (hashcash-insert-payment-async-2): Use
+ message-goto-eoh instead of doing it manually.
+ (mail-add-payment): Use message-narrow-to-header instead of trying
+ to do the same itself.
+
* message.el (message-hidden-headers): Add Face.
* gnus-sum.el (gnus-summary-reparent-thread): Factor out
(setq hashcash-process-alist (delq
(assq process hashcash-process-alist)
hashcash-process-alist))
- (goto-char (point-min))
- (search-forward mail-header-separator)
- (beginning-of-line)
+ (message-goto-eoh)
(when pay
;; (insert-before-markers "X-Payment: hashcash "
;; (number-to-string (hashcash-version pay)) " "
(addrlist nil))
(save-excursion
(save-restriction
- (goto-char (point-min))
- (search-forward mail-header-separator)
- (beginning-of-line)
- (narrow-to-region (point-min) (point))
+ (message-narrow-to-headers)
(let ((to (hashcash-strip-quoted-names (mail-fetch-field "To" nil t)))
(cc (hashcash-strip-quoted-names (mail-fetch-field "Cc" nil t)))
(ng (hashcash-strip-quoted-names (mail-fetch-field "Newsgroups"