* mm-uu.el (mm-uu-type-alist): Add optional leading `0'.
* gnus-uu.el (gnus-uu-shar-name-marker): Add optional leading `0'
and permit `:' and `\' in order to handle full Windows pathnames.
(gnus-uu-begin-string): Add optional leading `0'. Leading `0' is
technically not correct per standard, but seems to have common use.
(defvar gnus-uu-saved-article-name nil)
(defvar gnus-uu-saved-article-name nil)
-(defvar gnus-uu-begin-string "^begin[ \t]+[0-7][0-7][0-7][ \t]+\\(.*\\)$")
+(defvar gnus-uu-begin-string "^begin[ \t]+0?[0-7][0-7][0-7][ \t]+\\(.*\\)$")
(defvar gnus-uu-end-string "^end[ \t]*$")
(defvar gnus-uu-body-line "^M")
(defvar gnus-uu-end-string "^end[ \t]*$")
(defvar gnus-uu-body-line "^M")
(defvar gnus-uu-shar-file-name nil)
(defvar gnus-uu-shar-name-marker
(defvar gnus-uu-shar-file-name nil)
(defvar gnus-uu-shar-name-marker
- "begin [0-7][0-7][0-7][ \t]+\\(\\(\\w\\|\\.\\)*\\b\\)")
+ "begin 0?[0-7][0-7][0-7][ \t]+\\(\\(\\w\\|[.\\:]\\)*\\b\\)")
(defvar gnus-uu-postscript-begin-string "^%!PS-")
(defvar gnus-uu-postscript-end-string "^%%EOF$")
(defvar gnus-uu-postscript-begin-string "^%!PS-")
(defvar gnus-uu-postscript-end-string "^%%EOF$")
mm-uu-postscript-extract
nil)
(uu
mm-uu-postscript-extract
nil)
(uu
- "^begin[ \t]+[0-7][0-7][0-7][ \t]+"
+ "^begin[ \t]+0?[0-7][0-7][0-7][ \t]+"
"^end[ \t]*$"
mm-uu-uu-extract
mm-uu-uu-filename)
"^end[ \t]*$"
mm-uu-uu-extract
mm-uu-uu-filename)