;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: mime-def.el,v 0.47 1997-04-05 06:20:34 morioka Exp $
+;; Version: $Id: mime-def.el,v 0.48 1997-05-08 23:30:17 morioka Exp $
;; Keywords: definition, MIME, multimedia, mail, news
;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
;; modified by tower@prep Nov 86
;; gnus-caesar-region
;; Modified by umerin@flab.flab.Fujitsu.JUNET for ROT47.
-(defun tm:caesar-region (&optional n)
+(defun caesar-region (&optional n)
"Caesar rotation of region by N, default 13, for decrypting netnews.
ROT47 will be performed for Japanese text in any case."
(interactive (if current-prefix-arg ; Was there a prefix arg?
;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; Created: 1994/08/21 renamed from mime.el
;; Renamed: 1997/2/21 from tm-edit.el
-;; Version: $Revision: 0.77 $
+;; Version: $Revision: 0.78 $
;; Keywords: MIME, multimedia, multilingual, mail, news
;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
;;;
(defconst mime-edit-RCS-ID
- "$Id: mime-edit.el,v 0.77 1997-03-27 21:48:32 morioka Exp $")
+ "$Id: mime-edit.el,v 0.78 1997-05-08 23:31:14 morioka Exp $")
(defconst mime-edit-version (get-version-string mime-edit-RCS-ID))
(forward-line)
(set-mark (point))
(goto-char (mime-edit-content-end))
- (tm:caesar-region)
+ (caesar-region)
))
((string-equal contype "text/enriched")
(save-excursion
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; Created: 1995/9/26 (separated from tm-view.el)
;; Renamed: 1997/2/21 from tm-play.el
-;; Version: $Id: mime-play.el,v 0.40 1997-05-07 10:04:36 morioka Exp $
+;; Version: $Id: mime-play.el,v 0.41 1997-05-08 23:31:45 morioka Exp $
;; Keywords: MIME, multimedia, mail, news
;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
(save-excursion
(set-mark (point-min))
(goto-char (point-max))
- (tm:caesar-region)
+ (caesar-region)
)
(set-buffer-modified-p nil)
(set-buffer mother)