diff options
| -rw-r--r-- | lisp/mail/supercite.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/mail/supercite.el b/lisp/mail/supercite.el index d0ff648233b..332f56672eb 100644 --- a/lisp/mail/supercite.el +++ b/lisp/mail/supercite.el | |||
| @@ -68,7 +68,7 @@ This should NOT have a leading `^' character. See also | |||
| 68 | (defvar sc-citation-nonnested-root-regexp "[-._a-zA-Z0-9]+" | 68 | (defvar sc-citation-nonnested-root-regexp "[-._a-zA-Z0-9]+" |
| 69 | "*Regexp describing the variable root part of a nested citation. | 69 | "*Regexp describing the variable root part of a nested citation. |
| 70 | This should NOT have a leading `^' character. This variable is | 70 | This should NOT have a leading `^' character. This variable is |
| 71 | related to `sc-citation-root-regexp' but where as that varariable | 71 | related to `sc-citation-root-regexp' but whereas that variable |
| 72 | describes both nested and non-nested citation roots, this variable | 72 | describes both nested and non-nested citation roots, this variable |
| 73 | describes only nested citation roots.") | 73 | describes only nested citation roots.") |
| 74 | (defvar sc-citation-delimiter-regexp "[>]+" | 74 | (defvar sc-citation-delimiter-regexp "[>]+" |
| @@ -1326,7 +1326,7 @@ buffer." | |||
| 1326 | nesting))) | 1326 | nesting))) |
| 1327 | 1327 | ||
| 1328 | (defun sc-add-citation-level () | 1328 | (defun sc-add-citation-level () |
| 1329 | "Add a citation level for nested citation style w/ coersion." | 1329 | "Add a citation level for nested citation style w/ coercion." |
| 1330 | (let* ((nesting (sc-guess-nesting)) | 1330 | (let* ((nesting (sc-guess-nesting)) |
| 1331 | (citation (make-string (1+ (length nesting)) | 1331 | (citation (make-string (1+ (length nesting)) |
| 1332 | (string-to-char sc-citation-delimiter))) | 1332 | (string-to-char sc-citation-delimiter))) |
| @@ -1428,7 +1428,7 @@ non-nil." | |||
| 1428 | ()) | 1428 | ()) |
| 1429 | 1429 | ||
| 1430 | (defun sc-no-blank-line-or-header() | 1430 | (defun sc-no-blank-line-or-header() |
| 1431 | "Similar to `sc-no-header' except it removes the preceeding blank line." | 1431 | "Similar to `sc-no-header' except it removes the preceding blank line." |
| 1432 | (if (not (bobp)) | 1432 | (if (not (bobp)) |
| 1433 | (if (and (eolp) | 1433 | (if (and (eolp) |
| 1434 | (progn (forward-line -1) | 1434 | (progn (forward-line -1) |