Index: emacs/lisp/gnus/gnus-uu.el
diff -c emacs/lisp/gnus/gnus-uu.el:1.20 emacs/lisp/gnus/gnus-uu.el:1.21
*** emacs/lisp/gnus/gnus-uu.el:1.20 Tue Aug 2 07:21:08 2005
--- emacs/lisp/gnus/gnus-uu.el Sat Aug 6 19:51:42 2005
***************
*** 1,6 ****
;;; gnus-uu.el --- extract (uu)encoded files in Gnus
! ;; Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1996, 1997, 1998, 2000,
! ;; 2001, 2002, 2003 Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <[EMAIL PROTECTED]>
;; Created: 2 Oct 1993
--- 1,7 ----
;;; gnus-uu.el --- extract (uu)encoded files in Gnus
!
! ;; Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1996, 1997, 1998,
! ;; 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <[EMAIL PROTECTED]>
;; Created: 2 Oct 1993
***************
*** 1353,1359 ****
(gnus-message 2 "No begin part at the beginning")
(sleep-for 2))
(setq state 'middle))))
!
;; When there are no result-files, then something must be wrong.
(if result-files
(message "")
--- 1354,1360 ----
(gnus-message 2 "No begin part at the beginning")
(sleep-for 2))
(setq state 'middle))))
!
;; When there are no result-files, then something must be wrong.
(if result-files
(message "")
***************
*** 1439,1445 ****
;; We replace certain characters that could make things messy.
(setq gnus-uu-file-name
(gnus-map-function
! mm-file-name-rewrite-functions
(file-name-nondirectory (match-string 1))))
(replace-match (concat "begin 644 " gnus-uu-file-name) t t)
--- 1440,1446 ----
;; We replace certain characters that could make things messy.
(setq gnus-uu-file-name
(gnus-map-function
! mm-file-name-rewrite-functions
(file-name-nondirectory (match-string 1))))
(replace-match (concat "begin 644 " gnus-uu-file-name) t t)
_______________________________________________
Emacs-diffs mailing list
Emacs-diffs@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-diffs
