diff options
Diffstat (limited to 'lisp/sc.el')
| -rw-r--r-- | lisp/sc.el | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/sc.el b/lisp/sc.el index cc8deb446b2..03eade6cba2 100644 --- a/lisp/sc.el +++ b/lisp/sc.el @@ -1366,10 +1366,12 @@ Any old information is lost, unless an error occurs." (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 @@ original message but it does require a few things: (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) |