🚀 go-pugleaf

[This is my third attempt at posting, my normal news server is flakey]

vm-url-decode-buffer only recognizes upper case hex digits in escape
codes following a "%".  RFCs 1738 and 2396 both allow upper and lower
case.

Here is a patch that remedies the situation.  My VM is version 7.00.

*** vm-misc.el.orig	Sun Nov 18 20:36:09 2001
--- vm-misc.el	Tue Feb  5 10:17:56 2002
***************
*** 852,862 ****
  	(hex-digit-alist '((?0 .  0)  (?1 .  1)  (?2 .  2)  (?3 .  3)
  			   (?4 .  4)  (?5 .  5)  (?6 .  6)  (?7 .  7)
  			   (?8 .  8)  (?9 .  9)  (?A . 10)  (?B . 11)
! 			   (?C . 12)  (?D . 13)  (?E . 14)  (?F . 15)))
  	char)
      (save-excursion
        (goto-char (point-min))
!       (while (re-search-forward "%[0-9A-F][0-9A-F]" nil t)
  	(insert-char (+ (* (cdr (assq (char-after (- (point) 2))
  				      hex-digit-alist))
  			   16)
--- 852,864 ----
  	(hex-digit-alist '((?0 .  0)  (?1 .  1)  (?2 .  2)  (?3 .  3)
  			   (?4 .  4)  (?5 .  5)  (?6 .  6)  (?7 .  7)
  			   (?8 .  8)  (?9 .  9)  (?A . 10)  (?B . 11)
! 			   (?C . 12)  (?D . 13)  (?E . 14)  (?F . 15)
! 			   (?a . 10)  (?b . 11)  (?c . 12)  (?d . 13)
! 			   (?e . 14)  (?f . 15)))
  	char)
      (save-excursion
        (goto-char (point-min))
!       (while (re-search-forward "%[0-9A-Fa-f][0-9A-Fa-f]" nil t)
  	(insert-char (+ (* (cdr (assq (char-after (- (point) 2))
  				      hex-digit-alist))
  			   16)



-- 
Pete Forman                -./\.-  Disclaimer: This post is originated
WesternGeco                  -./\.-   by myself and does not represent
pete.forman@westerngeco.com    -./\.-   opinion of Schlumberger, Baker
http://petef.port5.com  (new)    -./\.-   Hughes or their divisions.