diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2004-05-29 22:28:49 +0000 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2004-05-29 22:28:49 +0000 |
| commit | 19a8706403b2cdc0d247a1f448b4aa4658e1c635 (patch) | |
| tree | c278975eeed96bd520fb60cfd89c38773137ea73 /lisp/net/tramp-uu.el | |
| parent | e1b46e0cc027844815f4c2bcc8dbde512305f4cf (diff) | |
| download | emacs-19a8706403b2cdc0d247a1f448b4aa4658e1c635.tar.gz emacs-19a8706403b2cdc0d247a1f448b4aa4658e1c635.tar.bz2 emacs-19a8706403b2cdc0d247a1f448b4aa4658e1c635.zip | |
Version 2.0.41 of Tramp released.
Diffstat (limited to 'lisp/net/tramp-uu.el')
| -rw-r--r-- | lisp/net/tramp-uu.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/net/tramp-uu.el b/lisp/net/tramp-uu.el index 1047e62a3cb..d18af101c48 100644 --- a/lisp/net/tramp-uu.el +++ b/lisp/net/tramp-uu.el @@ -1,7 +1,7 @@ ;;; -*- coding: iso-2022-7bit; -*- ;;; tramp-uu.el --- uuencode in Lisp -;; Copyright (C) 2002 Free Software Foundation, Inc. +;; Copyright (C) 2002, 2004 Free Software Foundation, Inc. ;; Author: Kai Gro,A_(Bjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> ;; Keywords: comm, terminals @@ -63,10 +63,10 @@ (setq c (char-after (point))) (delete-char 1) (if (equal c ?=) - ;; "=" means padding. Insert "`" instead. - (insert "`") - (insert (tramp-uu-byte-to-uu-char (tramp-uu-b64-char-to-byte c)))) - (setq i (1+ i)) + ;; "=" means padding. Insert "`" instead. Not counted for length. + (progn (insert "`") (setq len (1- len))) + (insert (tramp-uu-byte-to-uu-char (tramp-uu-b64-char-to-byte c))) + (setq i (1+ i))) ;; Every 60 characters, add "M" at beginning of line (as ;; length byte) and insert a newline. (when (zerop (% i 60)) |