[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
supercite bugfix.
From: |
Andrey Slusar |
Subject: |
supercite bugfix. |
Date: |
Fri, 19 Nov 2004 20:32:27 +0200 |
User-agent: |
Gnus/5.110003 (No Gnus v0.3) XEmacs/21.5 (chestnut, i386--freebsd) |
Hi,
See:
,----[ C-h v sc-cite-frame-alist RET ]
| `sc-cite-frame-alist' is a variable declared in Lisp.
| -- loaded from "supercite"
|
| Value: nil
|
| Documentation:
| *Alist for frame selection during citing.
| Each element of this list has the following form:
|
| (INFOKEY ((REGEXP . FRAME)
| (REGEXP . FRAME)
| (...)))
|
| Where INFOKEY is a key for `sc-mail-field', REGEXP is a regular
| expression to match against the INFOKEY's value. FRAME is a citation
| frame, or a variable containing a citation frame.
`----
If FRAME is a variable containing a citation frame, when running
(sc-scan-info-alist 'FRAME). This is a bug.
Patch, fixed this bug:
--- lisp/ChangeLog.orig Fri Nov 19 14:54:39 2004
+++ lisp/ChangeLog Fri Nov 19 14:58:40 2004
@@ -0,0 +1,5 @@
+2004-11-19 Andrey Slusar <anray@inet.ua>
+
+ * mail/supercite.el (sc-cite-region): Fix bug, when FRAME is a variable
+ containing a citation frame.
+
--- lisp/mail/supercite.el.orig Fri Nov 12 22:15:00 2004
+++ lisp/mail/supercite.el Fri Nov 19 14:51:29 2004
@@ -1434,7 +1434,9 @@
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 ((lambda (symb)
+ (if (symbolp symb) (eval symb) symb))
+ (sc-scan-info-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)
--
Regards,
Andrey.
- supercite bugfix.,
Andrey Slusar <=