From: grossjoh@lucy.ls6.informatik.uni-dortmund.de (Kai Grossjohann)
Newsgroups: alt.lucid-emacs.help
Subject: Supercite 2.2 Problem
Date: 5 Jan 93 16:43:21
Organization: Universitaet Dortmund, Lehrstuhl Informatik VI
Distribution: world
Reply-To: Kai Grossjohann <grossjoh@ls6.informatik.uni-dortmund.de>
NNTP-Posting-Host: lucy.informatik.uni-dortmund.de
Comments: Hyperbole mail buttons accepted, v3.06.

Hi there,

I use Supercite Version 2.2 and VM and I have the following problems:

(1) I read a mail message. I say "r" to answer. I then say "C-c C-y"
to yank the original message. Then something tells me: "Please
designate the region (i.e. set the mark)" See below for debugger
output.

(2) I read a mail message, as above, and I say "r", as above. Then,
however, with point at the end of the buffer, I say "C-SPACE" to set
the mark. Then Supercite tells me something about "wrong type
argument...". See below for debugger output.

Can anybody help me with these two?

	Thank you very much for your help,

		Kai

---

(ad 1): Debugger output
        -- Formatted so that Emacs does not complain.
        -- I replaced each "\n" with "\n\n" and did a fill-paragraph
	   on each line

Signalling: (error "Please designate a region to cite (i.e. set the mark).")

  signal(error ("Please designate a region to cite (i.e. set the mark)."))

  error("Please designate a region to cite (i.e. set the mark).")

  (if (not (mark)) (error "Please designate a region to cite (i.e. set
the mark).")))

  sc-cite(1)

  (if (not sc-all-but-cite-p) (sc-cite sc-preferred-header-style)))

  (let ((start ...) (end ...)) (sc-fetch-fields start end)
(sc-mail-yank-clear-headers start end) (if (not sc-all-but-cite-p)
(sc-cite sc-preferred-header-style)) (sc-append-current-keymap)
(sc-spoogify-docstring) (run-hooks (quote sc-post-hook))))

  sc-cite-original()

  run-hooks(mail-yank-hooks)

  vm-yank-message([[#<marker at 224788 in INBOX> #<marker at 225701 in INBOX> #<marker at 225954 in INBOX> #<marker at 226311 in INBOX> nil nil <<>> nil <--] ["89" nil #<marker at 6215 in INBOX Summary> #<marker at 6276 in INBOX Summary>] [nil nil nil nil nil nil nil nil nil] ["356" "Tue" "5" "January" "93" "14:11:46" "+0100" "Ulrich Pfeifer" "pfeifer@schroeder.informatik.uni-dortmund.de" "<9301051311.AA27849@schroeder.informatik.uni-dortmund.de>" "14" "Lucid Emacs" "^From:" nil nil "1"] nil] nil)

  call-interactively(vm-yank-message)

  recursive-edit()

  byte-code(" ! p +eb
`!y`|
@>c@=\"!cy@=cA@p\"c!cy@=cA@p\"c@=c@=Ap\"c!#$!
+" [pop-to-buffer debugger-buffer erase-buffer t 50
print-length print-escape-newlines standard-output backtrace
debugger-mode re-search-forward "\n[* ] debug(" 1 debugger-reenable
debugger-args (lambda debug) "Entering:\n" debug backtrace-debug 4
delete-char 42 0 exit "Return value: " debugger-value prin1 10 32
error "Signalling: " "Beginning evaluation of function call form:\n"
nil message "" buffer-read-only inhibit-trace recursive-edit] 3)

  debug(error (wrong-type-argument listp #<byte-code [nil "
!!!!
!\n!!RR\""
[kill-all-local-variables make-local-variable mail-reply-buffer nil
mail-send-actions mail-signature-inserted set-syntax-table
mail-mode-syntax-table use-local-map mail-mode-map
text-mode-abbrev-table local-abbrev-table mail-mode major-mode "Mail"
mode-name t buffer-offer-save paragraph-separate paragraph-start "^"
mail-header-separator "$\\|^[ ]*[-_][-_][-_]+$\\|" run-hooks
text-mode-hook mail-mode-hook] 4 "Major mode for editing mail to be
sent.\nLike Text Mode but with these additional commands:\nC-c C-s
mail-send (send the message) C-c C-c mail-send-and-exit\nC-c C-f move
to a header field (and create it if there isn't):\n C-c C-f C-t move
to To: C-c C-f C-s move to Subj:\n C-c C-f C-b move to BCC: C-c C-f
C-c move to CC:\nC-c C-t move to message text.\nC-c C-y
mail-yank-original (insert current message, in Rmail).\nC-c C-w
mail-signature (insert signature file).\nC-c C-q
mail-fill-yanked-message (fill what was yanked).\nC-c C-v
mail-sent-via (add a sent-via field for each To or CC)\n\nButton3
Popup menu with the above commands." nil]>))

  nthcdr(2 #<byte-code [nil "
!!!!
!\n!!RR\""
[kill-all-local-variables make-local-variable mail-reply-buffer nil
mail-send-actions mail-signature-inserted set-syntax-table
mail-mode-syntax-table use-local-map mail-mode-map
text-mode-abbrev-table local-abbrev-table mail-mode major-mode "Mail"
mode-name t buffer-offer-save paragraph-separate paragraph-start "^"
mail-header-separator "$\\|^[ ]*[-_][-_][-_]+$\\|" run-hooks
text-mode-hook mail-mode-hook] 4 "Major mode for editing mail to be
sent.\nLike Text Mode but with these additional commands:\nC-c C-s
mail-send (send the message) C-c C-c mail-send-and-exit\nC-c C-f move
to a header field (and create it if there isn't):\n C-c C-f C-t move
to To: C-c C-f C-s move to Subj:\n C-c C-f C-b move to BCC: C-c C-f
C-c move to CC:\nC-c C-t move to message text.\nC-c C-y
mail-yank-original (insert current message, in Rmail).\nC-c C-w
mail-signature (insert signature file).\nC-c C-q
mail-fill-yanked-message (fill what was yanked).\nC-c C-v
mail-sent-via (add a sent-via field for each To or CC)\n\nButton3
Popup menu with the above commands." nil]>)

  (let* ((symfunc ...) (doc-cdr ...) (doc-str ...)) (cond (...) (...)
(t ...))))

  sc-spoogify-docstring()

  (let ((start ...) (end ...)) (sc-fetch-fields start end)
(sc-mail-yank-clear-headers start end) (if (not sc-all-but-cite-p)
(sc-cite sc-preferred-header-style)) (sc-append-current-keymap)
(sc-spoogify-docstring) (run-hooks (quote sc-post-hook))))

  sc-cite-original()

  run-hooks(mail-yank-hooks)

  vm-yank-message([[#<marker at 224788 in INBOX> #<marker at 225701 in
INBOX> #<marker at 225954 in INBOX> #<marker at 226311 in INBOX> nil
nil <<>> nil <--] ["89" nil #<marker at 6215 in INBOX Summary>
#<marker at 6276 in INBOX Summary>] [nil nil nil nil nil nil nil nil
nil] ["356" "Tue" "5" "January" "93" "14:11:46" "+0100" "Ulrich
Pfeifer" "pfeifer@schroeder.informatik.uni-dortmund.de"
"<9301051311.AA27849@schroeder.informatik.uni-dortmund.de>" "14"
"Lucid Emacs" "^From:" nil nil "1"] nil] nil)

  call-interactively(vm-yank-message)

---

(ad 2): Debugger output
        -- Formatted so that Emacs does not complain.
        -- I replaced each "\n" with "\n\n" and did a fill-paragraph
	   on each line

Signalling: (wrong-type-argument listp #<byte-code [nil "
!!!!
!\n!!RR\""
[kill-all-local-variables make-local-variable mail-reply-buffer nil
mail-send-actions mail-signature-inserted set-syntax-table
mail-mode-syntax-table use-local-map mail-mode-map
text-mode-abbrev-table local-abbrev-table mail-mode major-mode "Mail"
mode-name t buffer-offer-save paragraph-separate paragraph-start "^"
mail-header-separator "$\\|^[ ]*[-_][-_][-_]+$\\|" run-hooks
text-mode-hook mail-mode-hook] 4 "Major mode for editing mail to be
sent.\nLike Text Mode but with these additional commands:\nC-c C-s
mail-send (send the message) C-c C-c mail-send-and-exit\nC-c C-f move
to a header field (and create it if there isn't):\n C-c C-f C-t move
to To: C-c C-f C-s move to Subj:\n C-c C-f C-b move to BCC: C-c C-f
C-c move to CC:\nC-c C-t move to message text.\nC-c C-y
mail-yank-original (insert current message, in Rmail).\nC-c C-w
mail-signature (insert signature file).\nC-c C-q
mail-fill-yanked-message (fill what was yanked).\nC-c C-v
mail-sent-via (add a sent-via field for each To or CC)\n\nButton3
Popup menu with the above commands." nil]>)

  nthcdr(2 #<byte-code [nil "
!!!!
!\n!!RR\""
[kill-all-local-variables make-local-variable mail-reply-buffer nil
mail-send-actions mail-signature-inserted set-syntax-table
mail-mode-syntax-table use-local-map mail-mode-map
text-mode-abbrev-table local-abbrev-table mail-mode major-mode "Mail"
mode-name t buffer-offer-save paragraph-separate paragraph-start "^"
mail-header-separator "$\\|^[ ]*[-_][-_][-_]+$\\|" run-hooks
text-mode-hook mail-mode-hook] 4 "Major mode for editing mail to be
sent.\nLike Text Mode but with these additional commands:\nC-c C-s
mail-send (send the message) C-c C-c mail-send-and-exit\nC-c C-f move
to a header field (and create it if there isn't):\n C-c C-f C-t move
to To: C-c C-f C-s move to Subj:\n C-c C-f C-b move to BCC: C-c C-f
C-c move to CC:\nC-c C-t move to message text.\nC-c C-y
mail-yank-original (insert current message, in Rmail).\nC-c C-w
mail-signature (insert signature file).\nC-c C-q
mail-fill-yanked-message (fill what was yanked).\nC-c C-v
mail-sent-via (add a sent-via field for each To or CC)\n\nButton3
Popup menu with the above commands." nil]>)

  (let* ((symfunc ...) (doc-cdr ...) (doc-str ...)) (cond (...) (...) (t ...))))

  sc-spoogify-docstring()

  (let ((start ...) (end ...)) (sc-fetch-fields start end)
(sc-mail-yank-clear-headers start end) (if (not sc-all-but-cite-p)
(sc-cite sc-preferred-header-style)) (sc-append-current-keymap)
(sc-spoogify-docstring) (run-hooks (quote sc-post-hook))))

  sc-cite-original()

  run-hooks(mail-yank-hooks)

  vm-yank-message([[#<marker at 224788 in INBOX> #<marker at 225701 in
INBOX> #<marker at 225954 in INBOX> #<marker at 226311 in INBOX> nil
nil <<>> nil <--] ["89" nil #<marker at 6215 in INBOX Summary>
#<marker at 6276 in INBOX Summary>] [nil nil nil nil nil nil nil nil
nil] ["356" "Tue" "5" "January" "93" "14:11:46" "+0100" "Ulrich
Pfeifer" "pfeifer@schroeder.informatik.uni-dortmund.de"
"<9301051311.AA27849@schroeder.informatik.uni-dortmund.de>" "14"
"Lucid Emacs" "^From:" nil nil "1"] nil] nil)

  call-interactively(vm-yank-message)
--
--
  Kai Grossjohann            Phone (voice): 49 231 75 30 15
  Baroper Str. 331 App. 510  E-Mail: 
  W-4600 Dortmund 50         grossjoh@ls6.informatik.uni-dortmund.de
  Germany                    
--
There are two ways to solve this problem: the hard way, and the
easy way. Let's start with the hard way.
                        -- W. Schneider, from a Physics lecture
Newsgroups: alt.lucid-emacs.help