/[emacs]/emacs/lisp/mail/supercite.el
ViewVC logotype

Diff of /emacs/lisp/mail/supercite.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.38 by eliz, Sat Nov 27 17:17:17 2004 UTC revision 1.39 by jurta, Tue Dec 14 00:53:05 2004 UTC
# Line 146  Each element of this list has the follow Line 146  Each element of this list has the follow
146               (...)))               (...)))
147    
148  Where INFOKEY is a key for `sc-mail-field', REGEXP is a regular  Where INFOKEY is a key for `sc-mail-field', REGEXP is a regular
149  expression to match against the INFOKEY's value.  FRAME is a citation  expression to match against the INFOKEY's value.  FRAME is
150  frame, or a variable containing a citation frame."  a citation frame, or a symbol that represents the name of
151    a variable whose value is a citation frame."
152    :type '(repeat (list symbol (repeat (cons regexp    :type '(repeat (list symbol (repeat (cons regexp
153                                              (choice (repeat (repeat sexp))                                              (choice (repeat (repeat sexp))
154                                                      symbol)))))                                                      symbol)))))
# Line 1434  When called interactively, the optional Line 1435  When called interactively, the optional
1435  and that means call `sc-select-attribution' too."  and that means call `sc-select-attribution' too."
1436    (interactive "r\nP\np")    (interactive "r\nP\np")
1437    (undo-boundary)    (undo-boundary)
1438    (let ((frame (or (sc-scan-info-alist    (let ((frame (sc-scan-info-alist sc-cite-frame-alist))
                     (if (symbolp sc-cite-frame-alist)  
                         (symbol-value sc-cite-frame-alist)  
                       sc-cite-frame-alist))  
                    sc-default-cite-frame))  
1439          (sc-confirm-always-p (if confirm-p t sc-confirm-always-p)))          (sc-confirm-always-p (if confirm-p t sc-confirm-always-p)))
1440        (if (and frame (symbolp frame))
1441            (setq frame (symbol-value frame)))
1442        (or frame (setq frame sc-default-cite-frame))
1443      (run-hooks 'sc-pre-cite-hook)      (run-hooks 'sc-pre-cite-hook)
1444      (if interactive      (if interactive
1445          (sc-select-attribution))          (sc-select-attribution))
# Line 1450  and that means call `sc-select-attributi Line 1450  and that means call `sc-select-attributi
1450  First runs `sc-pre-uncite-hook'."  First runs `sc-pre-uncite-hook'."
1451    (interactive "r")    (interactive "r")
1452    (undo-boundary)    (undo-boundary)
1453    (let ((frame (or (sc-scan-info-alist    (let ((frame (sc-scan-info-alist sc-uncite-frame-alist)))
1454                      (if (symbolp sc-uncite-frame-alist)      (if (and frame (symbolp frame))
1455                          (symbol-value sc-uncite-frame-alist)          (setq frame (symbol-value frame)))
1456                        sc-uncite-frame-alist))      (or frame (setq frame sc-default-uncite-frame))
                    sc-default-uncite-frame)))  
1457      (run-hooks 'sc-pre-uncite-hook)      (run-hooks 'sc-pre-uncite-hook)
1458      (regi-interpret frame start end)))      (regi-interpret frame start end)))
1459    
# Line 1465  First runs `sc-pre-recite-hook'." Line 1464  First runs `sc-pre-recite-hook'."
1464    (let ((sc-confirm-always-p t))    (let ((sc-confirm-always-p t))
1465      (sc-select-attribution))      (sc-select-attribution))
1466    (undo-boundary)    (undo-boundary)
1467    (let ((frame (or (sc-scan-info-alist    (let ((frame (sc-scan-info-alist sc-recite-frame-alist)))
1468                      (if (symbolp sc-recite-frame-alist)      (if (and frame (symbolp frame))
1469                          (symbol-value sc-recite-frame-alist)          (setq frame (symbol-value frame)))
1470                        sc-recite-frame-alist))      (or frame (setq frame sc-default-recite-frame))
                    sc-default-recite-frame)))  
1471      (run-hooks 'sc-pre-recite-hook)      (run-hooks 'sc-pre-recite-hook)
1472      (regi-interpret frame start end)))      (regi-interpret frame start end)))
1473    

Legend:
Removed from v.1.38  
changed lines
  Added in v.1.39

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26