[partially solved but summary is not updated] (was: edit subject, messages, imap server)

[Uwe Brauer <oub@mat.ucm.es>]

[-- Attachment #1: Type: text/plain, Size: 831 bytes --]


   > Uwe writes:

 
 


   > You end editing by pressing the ubiquitous "I'm done"-keys: C-c C-c.

   > I don't know if it works with IMAP, so let us know how it goes!


When I hit[1] C-c C-c I finally receive an error I attach.
An error about a missing 
  signal(error ("FQM: Can't find message-header-separator or alternate"))

The reason seems to be the old feedmail package which is loaded via
(add-hook 'message-mail-send-hook 'feedmail-mail-send-hook-splitter)

When I remove it, C-c C-c

Works. The funny thing is.

I can see the new edited subject in thunderbird, but *not* in gnus. It
seems that the summary buffer is not updated. Could it be a cache issue?


(I am using gmail's imap server)

thanks

Uwe Brauer 

   >   Best regards,

   >     Adam

Footnotes:
[1]  and I have a couple of hooks in the send function.



[-- Attachment #2: feedmail-error --]
[-- Type: text/plain, Size: 5669 bytes --]

Debugger entered--Lisp error: (error "FQM: Can't find message-header-separator or alternate")
  signal(error ("FQM: Can't find message-header-separator or alternate"))
  cerror("FQM: Can't find message-header-separator or alternate")
  apply(cerror "FQM: Can't find message-header-separator or alternate" nil)
  error("FQM: Can't find message-header-separator or alternate")
  (if noerror nil (error "FQM: Can't find message-header-separator or alternate"))
  (if (or (re-search-forward r-mhs nil t) (and alt-mhs ...)) (progn (beginning-of-line) (point-marker)) (if noerror nil (error "FQM: Can't find message-header-separator or alternate")))
  (save-excursion (goto-char (point-min)) (if (or ... ...) (progn ... ...) (if noerror nil ...)))
  (let ((mhs mail-header-separator) (alt-mhs feedmail-queue-alternative-mail-header-separator) r-mhs r-alt-mhs) (setq r-mhs (concat "^" ... "$")) (setq r-alt-mhs (concat "^" ... "$")) (save-excursion (goto-char ...) (if ... ... ...)))
  feedmail-find-eoh()
  (setq eoh-marker (feedmail-find-eoh))
  (let ((case-fold-search nil)) (feedmail-say-debug "looking for m-h-s \"%s\"" mail-header-separator) (setq eoh-marker (feedmail-find-eoh)) (feedmail-say-debug "found m-h-s %s" eoh-marker) (setq mail-header-separator "") (replace-match ""))
  (save-excursion (set-buffer feedmail-error-buffer) (erase-buffer) (set-buffer feedmail-prepped-text-buffer) (erase-buffer) (insert-buffer feedmail-raw-text-buffer) (goto-char (point-max)) (or (= ... ?\n) (insert ?\n)) (let (...) (feedmail-say-debug "looking for m-h-s \"%s\"" mail-header-separator) (setq eoh-marker ...) (feedmail-say-debug "found m-h-s %s" eoh-marker) (setq mail-header-separator "") (replace-match "")) (feedmail-say-debug "expanding mail aliases") (if (or feedmail-force-expand-mail-aliases ...) (expand-mail-aliases ... eoh-marker)) (if feedmail-fill-to-cc (feedmail-fill-to-cc-function eoh-marker)) (goto-char (point-min)) (while (and ... ...) (replace-match "\n")) (let (... ...) (goto-char ...) (setq feedmail-is-a-resend ...) (if ... ...) (if ... ... ...) (if ... ...) (if ... ...) (setq feedmail-address-list ...) (setq bcc-holder ...) (setq resent-bcc-holder ...) (if ... ...) (if ... ...) (goto-char ...) (feedmail-fiddle-from) (feedmail-fiddle-sender) (feedmail-fiddle-x-mailer) (feedmail-fiddle-message-id ...) (feedmail-fiddle-date ...) (feedmail-fiddle-list-of-fiddle-plexes feedmail-fiddle-plex-user-list) (goto-char ...) (and feedmail-nuke-empty-headers ...)) (feedmail-say-debug "last chance hook: %s" feedmail-last-chance-hook) (run-hooks (quote feedmail-last-chance-hook)) (save-window-excursion (let ... ... ...)))
  (unwind-protect (save-excursion (set-buffer feedmail-error-buffer) (erase-buffer) (set-buffer feedmail-prepped-text-buffer) (erase-buffer) (insert-buffer feedmail-raw-text-buffer) (goto-char ...) (or ... ...) (let ... ... ... ... ... ...) (feedmail-say-debug "expanding mail aliases") (if ... ...) (if feedmail-fill-to-cc ...) (goto-char ...) (while ... ...) (let ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (feedmail-say-debug "last chance hook: %s" feedmail-last-chance-hook) (run-hooks ...) (save-window-excursion ...)) (kill-buffer feedmail-prepped-text-buffer) (set-buffer feedmail-error-buffer) (if (zerop ...) (kill-buffer feedmail-error-buffer) (progn ... ... ...)) (set-buffer feedmail-raw-text-buffer))
  (let ((feedmail-error-buffer ...) (feedmail-prepped-text-buffer ...) (feedmail-raw-text-buffer ...) (feedmail-address-list) (eoh-marker) (bcc-holder) (resent-bcc-holder) (a-re-rtcb "^RESENT-\\(TO\\|CC\\|BCC\\):") (a-re-rtc "^RESENT-\\(TO\\|CC\\):") (a-re-rb "^RESENT-BCC:") (a-re-dtcb "^\\(TO\\|CC\\|BCC\\):") (a-re-dtc "^\\(TO\\|CC\\):") (a-re-db "^BCC:") (mail-header-separator mail-header-separator)) (unwind-protect (save-excursion ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (kill-buffer feedmail-prepped-text-buffer) (set-buffer feedmail-error-buffer) (if ... ... ...) (set-buffer feedmail-raw-text-buffer)))
  feedmail-send-it-immediately()
  (catch (quote skip-me-i) (feedmail-send-it-immediately))
  (eq (quote skip-me-i) (catch (quote skip-me-i) (feedmail-send-it-immediately)))
  (if (eq (quote skip-me-i) (catch ... ...)) (error "FQM: Sending...abandonned!"))
  feedmail-send-it-immediately-wrapper()
  feedmail-message-action-send()
  funcall(feedmail-message-action-send)
  (if feedmail-ask-before-queue (funcall (feedmail-queue-send-edit-prompt)) (feedmail-dump-message-to-queue feedmail-queue-directory (quote after-queue)))
  (if (not feedmail-enable-queue) (feedmail-send-it-immediately-wrapper) (if feedmail-ask-before-queue (funcall ...) (feedmail-dump-message-to-queue feedmail-queue-directory ...)))
  (let ((bfn-jiggle nil)) (if (and ... feedmail-queue-buffer-file-name) (setq buffer-file-name feedmail-queue-buffer-file-name bfn-jiggle t)) (if feedmail-queue-directory (setq feedmail-queue-directory ...)) (if feedmail-queue-draft-directory (setq feedmail-queue-draft-directory ...)) (if (not feedmail-enable-queue) (feedmail-send-it-immediately-wrapper) (if feedmail-ask-before-queue ... ...)) (if bfn-jiggle (setq feedmail-queue-buffer-file-name buffer-file-name)))
  (save-excursion (let (...) (if ... ...) (if feedmail-queue-directory ...) (if feedmail-queue-draft-directory ...) (if ... ... ...) (if bfn-jiggle ...)))
  feedmail-send-it()
  message-multi-smtp-send-mail()
  gnus-agent-send-mail()
  message-send-mail(nil)
  message-send-via-mail(nil)
  message-send(nil)
  message-send-and-exit(nil)
  my-send-with-or-without-link(nil)
  call-interactively(my-send-with-or-without-link)