[Emacs-diffs] Changes to emacs/lisp/gnus/pgg-parse.el

[Miles Bader]

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)