From 671c30d8972e94e190c074e146a83c4296f44385 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 27 Nov 2004 17:13:48 +0000 Subject: [PATCH] (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. --- lisp/ChangeLog | 9 +++++++++ lisp/mail/supercite.el | 15 ++++++++++++--- 2 files changed, 21 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 677fd39b97e..68f003f4c97 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,12 @@ +2004-11-27 Eli Zaretskii + + * mail/supercite.el (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. + 2004-11-27 Arne J,Ax(Brgensen (tiny change) * wid-edit.el (widget-narrow-to-field): New function. 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))) -- 2.39.5