bug-gnu-emacs
[Top][All Lists]
Advanced

[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  <address@hidden>
+
+       * 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.




reply via email to

[Prev in Thread] Current Thread [Next in Thread]