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