From 73ee2cc3bd0ef7f3ab69b7f896d0ccadd280fda1 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Karl=20Pfl=C3=A4sterer?= Date: Tue, 29 Jan 2002 13:19:50 +0000 Subject: [PATCH] 2002-01-29 Karl Kleinpaste * 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. --- lisp/gnus-uu.el | 4 ++-- lisp/mm-uu.el | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/gnus-uu.el b/lisp/gnus-uu.el index 53de1495e..fce5aa7f1 100644 --- a/lisp/gnus-uu.el +++ b/lisp/gnus-uu.el @@ -321,7 +321,7 @@ didn't work, and overwrite existing files. Otherwise, ask each time." (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") @@ -336,7 +336,7 @@ didn't work, and overwrite existing files. Otherwise, ask each time." (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$") diff --git a/lisp/mm-uu.el b/lisp/mm-uu.el index f36a5fdc0..780daf192 100644 --- a/lisp/mm-uu.el +++ b/lisp/mm-uu.el @@ -80,7 +80,7 @@ This can be either \"inline\" or \"attachment\".") 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) -- 2.34.1