1 |
;;; gnus-uu.el --- extract (uu)encoded files in Gnus |
;;; gnus-uu.el --- extract (uu)encoded files in Gnus |
2 |
;; Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1996, 1997, 1998, 2000, |
|
3 |
;; 2001, 2002, 2003 Free Software Foundation, Inc. |
;; Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1996, 1997, 1998, |
4 |
|
;; 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. |
5 |
|
|
6 |
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
7 |
;; Created: 2 Oct 1993 |
;; Created: 2 Oct 1993 |
1354 |
(gnus-message 2 "No begin part at the beginning") |
(gnus-message 2 "No begin part at the beginning") |
1355 |
(sleep-for 2)) |
(sleep-for 2)) |
1356 |
(setq state 'middle)))) |
(setq state 'middle)))) |
1357 |
|
|
1358 |
;; When there are no result-files, then something must be wrong. |
;; When there are no result-files, then something must be wrong. |
1359 |
(if result-files |
(if result-files |
1360 |
(message "") |
(message "") |
1440 |
;; We replace certain characters that could make things messy. |
;; We replace certain characters that could make things messy. |
1441 |
(setq gnus-uu-file-name |
(setq gnus-uu-file-name |
1442 |
(gnus-map-function |
(gnus-map-function |
1443 |
mm-file-name-rewrite-functions |
mm-file-name-rewrite-functions |
1444 |
(file-name-nondirectory (match-string 1)))) |
(file-name-nondirectory (match-string 1)))) |
1445 |
(replace-match (concat "begin 644 " gnus-uu-file-name) t t) |
(replace-match (concat "begin 644 " gnus-uu-file-name) t t) |
1446 |
|
|