# HG changeset patch # User Richard M. Stallman <rms@gnu.org> # Date 747833116 0 # Node ID ca55f9c620c58e789e03abafa437cbcb4ef4304e # Parent 8a2da772692183e02c145bc387a03b01de3055aa (sc-glom-headers): Bind mark-active around calling region-... (sc-cite-original): Likewise. diff -r 8a2da7726921 -r ca55f9c620c5 lisp/=sc.el --- a/lisp/=sc.el Sun Sep 12 10:51:49 1993 +0000 +++ b/lisp/=sc.el Sun Sep 12 11:25:16 1993 +0000 @@ -1366,10 +1366,12 @@ (info (copy-sequence sc-gal-information))) (setq sc-gal-attributions nil sc-gal-information nil) - (let ((start (region-beginning)) - (end (region-end)) + (let (start end (sc-force-confirmation-p t) (sc-cite-context nil)) + (let ((mark-active t)) + (setq start (region-beginning) + end (region-end))) (sc-fetch-fields start end) (if (null sc-gal-information) (progn @@ -1514,8 +1516,10 @@ (run-hooks 'sc-pre-hook) (setq sc-gal-attributions nil) (setq sc-gal-information nil) - (let ((start (region-beginning)) - (end (region-end))) + (let (start end) + (let ((mark-active t)) + (setq start (region-beginning) + end (region-end))) (sc-fetch-fields start end) (sc-mail-yank-clear-headers start end) (if (not sc-all-but-cite-p)