/[emacs]/emacs/lisp/gnus/qp.el
ViewVC logotype

Diff of /emacs/lisp/gnus/qp.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.17 by miles, Tue Apr 19 06:53:24 2005 UTC revision 1.18 by miles, Mon May 30 17:13:58 2005 UTC
# Line 69  them into characters should be done sepa Line 69  them into characters should be done sepa
69            (cond ((eq (char-after (1+ (point))) ?\n)            (cond ((eq (char-after (1+ (point))) ?\n)
70                   (delete-char 2))                   (delete-char 2))
71                  ((looking-at "=[0-9A-F][0-9A-F]")                  ((looking-at "=[0-9A-F][0-9A-F]")
72                   (let ((byte (string-to-int (buffer-substring (1+ (point))                   (let ((byte (string-to-number (buffer-substring (1+ (point))
73                                                                (+ 3 (point)))                                                                   (+ 3 (point)))
74                                              16)))                                                 16)))
75                     (mm-insert-byte byte 1)                     (mm-insert-byte byte 1)
76                     (delete-char 3)))                     (delete-char 3)))
77                  (t                  (t

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26