diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2004-11-27 17:13:48 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2004-11-27 17:13:48 +0000 |
| commit | 671c30d8972e94e190c074e146a83c4296f44385 (patch) | |
| tree | 174257eef2fad0f141cc459090944230eb8e431a /lisp/mail/supercite.el | |
| parent | 39528a68587a036a99ef9b444db9ead248797aa1 (diff) | |
| download | emacs-671c30d8972e94e190c074e146a83c4296f44385.tar.gz | |
(sc-cite-region): Handle the case where sc-cite-frame-alist is a symbol.
(sc-uncite-region): Handle the case where sc-uncite-frame-alist is a symbol.
(sc-recite-region): Handle the case where sc-recite-frame-alist is a symbol.
Diffstat (limited to 'lisp/mail/supercite.el')
| -rw-r--r-- | lisp/mail/supercite.el | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/lisp/mail/supercite.el b/lisp/mail/supercite.el index 0f5925021e8..0afab79e4fa 100644 --- a/lisp/mail/supercite.el +++ b/lisp/mail/supercite.el @@ -1434,7 +1434,10 @@ When called interactively, the optional arg INTERACTIVE is non-nil, and that means call `sc-select-attribution' too." (interactive "r\nP\np") (undo-boundary) - (let ((frame (or (sc-scan-info-alist sc-cite-frame-alist) + (let ((frame (or (sc-scan-info-alist + (if (symbolp sc-cite-frame-alist) + (symbol-value sc-cite-frame-alist) + sc-cite-frame-alist)) sc-default-cite-frame)) (sc-confirm-always-p (if confirm-p t sc-confirm-always-p))) (run-hooks 'sc-pre-cite-hook) @@ -1447,7 +1450,10 @@ and that means call `sc-select-attribution' too." First runs `sc-pre-uncite-hook'." (interactive "r") (undo-boundary) - (let ((frame (or (sc-scan-info-alist sc-uncite-frame-alist) + (let ((frame (or (sc-scan-info-alist + (if (symbolp sc-uncite-frame-alist) + (symbol-value sc-uncite-frame-alist) + sc-uncite-frame-alist)) sc-default-uncite-frame))) (run-hooks 'sc-pre-uncite-hook) (regi-interpret frame start end))) @@ -1459,7 +1465,10 @@ First runs `sc-pre-recite-hook'." (let ((sc-confirm-always-p t)) (sc-select-attribution)) (undo-boundary) - (let ((frame (or (sc-scan-info-alist sc-recite-frame-alist) + (let ((frame (or (sc-scan-info-alist + (if (symbolp sc-recite-frame-alist) + (symbol-value sc-recite-frame-alist) + sc-recite-frame-alist)) sc-default-recite-frame))) (run-hooks 'sc-pre-recite-hook) (regi-interpret frame start end))) |