mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(sc-glom-headers): Bind mark-active around calling region-...

Browse source 
(sc-cite-original): Likewise.
This commit is contained in:
Richard M. Stallman 1993-09-12 11:25:16 +00:00
parent cd376b506b
commit 26ff8619bb
1 changed files with 8 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/sc.el
View file

@ -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)