/[emacs]/emacs/lisp/gnus/gnus-uu.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-uu.el

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

revision 1.20 by miles, Tue Aug 2 07:21:08 2005 UTC revision 1.21 by ttn, Sat Aug 6 19:51:42 2005 UTC
# Line 1  Line 1 
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
# Line 1353  When called interactively, prompt for RE Line 1354  When called interactively, prompt for RE
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 "")
# Line 1439  When called interactively, prompt for RE Line 1440  When called interactively, prompt for RE
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    

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

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