Index: emacs/lisp/gnus/pgg-parse.el
diff -c emacs/lisp/gnus/pgg-parse.el:1.2 emacs/lisp/gnus/pgg-parse.el:1.3
*** emacs/lisp/gnus/pgg-parse.el:1.2 Sat Sep 4 13:13:43 2004
--- emacs/lisp/gnus/pgg-parse.el Mon May 30 17:13:58 2005
***************
*** 113,119 ****
`(mapconcat (lambda (c) (format "%02X" (pgg-char-int c)))
,string "")
;; `(upcase (apply #'format "%02x%02x%02x%02x%02x%02x%02x%02x"
! ;; (string-to-int-list ,string)))
)
(defmacro pgg-parse-time-field (bytes)
--- 113,119 ----
`(mapconcat (lambda (c) (format "%02X" (pgg-char-int c)))
,string "")
;; `(upcase (apply #'format "%02x%02x%02x%02x%02x%02x%02x%02x"
! ;; (string-to-number-list ,string)))
)
(defmacro pgg-parse-time-field (bytes)
***************
*** 136,142 ****
(defmacro pgg-read-bytes (nbytes)
`(mapcar #'pgg-char-int (pgg-read-bytes-string ,nbytes))
! ;; `(string-to-int-list (pgg-read-bytes-string ,nbytes))
)
(defmacro pgg-read-body-string (ptag)
--- 136,142 ----
(defmacro pgg-read-bytes (nbytes)
`(mapcar #'pgg-char-int (pgg-read-bytes-string ,nbytes))
! ;; `(string-to-number-list (pgg-read-bytes-string ,nbytes))
)
(defmacro pgg-read-body-string (ptag)
***************
*** 146,152 ****
(defmacro pgg-read-body (ptag)
`(mapcar #'pgg-char-int (pgg-read-body-string ,ptag))
! ;; `(string-to-int-list (pgg-read-body-string ,ptag))
)
(defalias 'pgg-skip-bytes 'forward-char)
--- 146,152 ----
(defmacro pgg-read-body (ptag)
`(mapcar #'pgg-char-int (pgg-read-body-string ,ptag))
! ;; `(string-to-number-list (pgg-read-body-string ,ptag))
)
(defalias 'pgg-skip-bytes 'forward-char)
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
