[Emacs-diffs] /srv/bzr/emacs/trunk r102815: allout.el: Add 2011 to the file copyright.

[Ken Manheimer]

------------------------------------------------------------
revno: 102815
committer: Ken Manheimer <address@hidden>
branch nick: trunk
timestamp: Mon 2011-01-10 17:05:42 -0500
message:
  allout.el: Add 2011 to the file copyright.
  (allout-encrypt-string): Prevent encryption from adding an extra newline at
  the end of the topic body.
  (allout-version): Increment to 2.3.
modified:
  lisp/ChangeLog
  lisp/allout.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-01-10 11:21:01 +0000
+++ b/lisp/ChangeLog    2011-01-10 22:05:42 +0000
@@ -1,3 +1,10 @@
+2011-01-10  Ken Manheimer  <address@hidden>
+
+       allout.el: Add 2011 to the file copyright.
+       (allout-encrypt-string): Prevent encryption from adding an extra
+       newline at the end of the topic body.
+       (allout-version): Increment to 2.3.
+
 2011-01-10  Michael Albinus  <address@hidden>
 
        * net/dbus.el (dbus-unregister-service): Complete doc.  Fix

=== modified file 'lisp/allout.el'
--- a/lisp/allout.el    2011-01-06 07:19:05 +0000
+++ b/lisp/allout.el    2011-01-10 22:05:42 +0000
@@ -1,12 +1,12 @@
 ;;; allout.el --- extensive outline mode for use alone and with other modes
 
 ;; Copyright (C) 1992, 1993, 1994, 2001, 2002, 2003, 2004, 2005, 2006,
-;;   2007, 2008, 2009, 2010  Free Software Foundation, Inc.
+;;   2007, 2008, 2009, 2010, 2011  Free Software Foundation, Inc.
 
 ;; Author: Ken Manheimer <ken dot manheimer at gmail dot com>
 ;; Maintainer: Ken Manheimer <ken dot manheimer at gmail dot com>
 ;; Created: Dec 1991 -- first release to usenet
-;; Version: 2.2.2
+;; Version: 2.3
 ;; Keywords: outlines wp languages
 ;; Website: http://myriadicity.net/Sundry/EmacsAllout
 
@@ -569,7 +569,7 @@
  `!' - exclamation point/bang -- emphatic
  `[' - open square bracket -- meta-note, about item instead of item's subject
  `\"' - double quote -- a quotation or other citation
- `=' - equal sign -- an assignement, equating a name with some connotation
+ `=' - equal sign -- an assignment, some kind of definition
  `^' - carat -- relates to something above
 
 Some are more elusive, but their rationale may be recognizable:
@@ -891,7 +891,7 @@
 ;;;_ #1 Internal Outline Formatting and Configuration
 ;;;_  : Version
 ;;;_   = allout-version
-(defvar allout-version "2.2.2"
+(defvar allout-version "2.3"
   "Version of currently loaded outline package.  (allout.el)")
 ;;;_   > allout-version
 (defun allout-version (&optional here)
@@ -6226,10 +6226,11 @@
               (epg-decrypt-string epg-context
                                   (encode-coding-string massaged-text
                                                         (or encoding 'utf-8)))
-            (epg-encrypt-string epg-context
-                                (encode-coding-string massaged-text
-                                                      (or encoding 'utf-8))
-                                recipients)))
+            (replace-regexp-in-string "\n$" ""
+             (epg-encrypt-string epg-context
+                                 (encode-coding-string massaged-text
+                                                       (or encoding 'utf-8))
+                                 recipients))))
 
     ;; validate result -- non-empty
     (if (not result-text)