diff options
| -rw-r--r-- | lisp/pgg-parse.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/pgg-parse.el b/lisp/pgg-parse.el index 11d0c652d34..336c492efde 100644 --- a/lisp/pgg-parse.el +++ b/lisp/pgg-parse.el | |||
| @@ -178,6 +178,8 @@ | |||
| 178 | (repeat)))) | 178 | (repeat)))) |
| 179 | (repeat))))) | 179 | (repeat))))) |
| 180 | 180 | ||
| 181 | (defvar pgg-parse-crc24) | ||
| 182 | |||
| 181 | (defun pgg-parse-crc24-string (string) | 183 | (defun pgg-parse-crc24-string (string) |
| 182 | (let ((h (vector nil 183 1230 nil nil nil nil nil nil))) | 184 | (let ((h (vector nil 183 1230 nil nil nil nil nil nil))) |
| 183 | (ccl-execute-on-string pgg-parse-crc24 h string) | 185 | (ccl-execute-on-string pgg-parse-crc24 h string) |
| @@ -463,6 +465,10 @@ | |||
| 463 | pgg-parse-public-key-algorithm-alist))) | 465 | pgg-parse-public-key-algorithm-alist))) |
| 464 | result)) | 466 | result)) |
| 465 | 467 | ||
| 468 | ;; p-d-p only calls this if it is defined, but the compiler does not | ||
| 469 | ;; recognize that. | ||
| 470 | (declare-function pgg-parse-crc24-string "pgg-parse" (string)) | ||
| 471 | |||
| 466 | (defun pgg-decode-packets () | 472 | (defun pgg-decode-packets () |
| 467 | (if (re-search-forward "^=\\([A-Za-z0-9+/]\\{4\\}\\)$" nil t) | 473 | (if (re-search-forward "^=\\([A-Za-z0-9+/]\\{4\\}\\)$" nil t) |
| 468 | (let ((p (match-beginning 0)) | 474 | (let ((p (match-beginning 0)) |