diff options
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))) |