Oops, autofiling this message uncovered a bug. Replace:
(defun gec-fetch-vm-field (field)
"return requested mail field from the current vm message"
(let
((msg (car vm-message-pointer)))
(save-excursion
(save-restriction
(set-buffer (vm-buffer-of msg))
(widen)
(narrow-to-region (vm-start-of msg) (vm-end-of msg))
(mail-fetch-field field)))))
with:
(defun gec-fetch-vm-field (field)
"return requested mail field from the current vm message"
(let
((msg (car vm-message-pointer)))
(save-excursion
(save-restriction
(set-buffer (vm-buffer-of msg))
(widen)
(narrow-to-region (vm-headers-of msg) (1- (vm-text-of msg)))
(mail-fetch-field field)))))
so the function only fetches from the headers, not the body.
