*** empty log message ***

diff --git a/lisp/emacs-lisp/float.el b/lisp/emacs-lisp/float.el
index ce2ab1012781918bab85681fc89beb6f11320b4b..68b88f41eccad9c29027af447beb87eec28d4215 100644 (file)
--- a/lisp/emacs-lisp/float.el
+++ b/lisp/emacs-lisp/float.el
@@ -386,11 +386,10 @@ Optional second argument non-nil means use scientific notation."
 ;; digits of the exponent.
 (defun string-to-float (str)
   "Convert the string to a floating point number.
-Accepts a decimal string in scientific notation, 
-with exponent preceded by either E or e.
-Only the 6 most significant digits of the integer and fractional parts
-are used; only the first two digits of the exponent are used.
-Negative signs preceding both the decimal number and the exponent
+Accepts a decimal string in scientific notation,  with exponent preceded
+by either E or e.  Only the six most significant digits of the integer
+and fractional parts are used; only the first two digits of the exponent
+are used.  Negative signs preceding both the decimal number and the exponent
 are recognized."
 
   (if (string-match floating-point-regexp str 0)
@@ -447,5 +446,3 @@ are recognized."
           (funcall func exponent (aref powers-of-10 tens)))))
                  
     _f0))                              ; if invalid, return 0
-
-

diff --git a/lisp/float-sup.el b/lisp/float-sup.el
index bf95369fd82c372ee681c69fcad5514d908b1e96..d7b756238d37c61f551daf69c23eed80cbb34b7f 100644 (file)
--- a/lisp/float-sup.el
+++ b/lisp/float-sup.el
@@ -42,8 +42,7 @@
 (defconst radians-to-degrees (/ 180.0 pi)
   "Radian to degree conversion constant")
 
-;; these expand to a single multiply by a float
-;; when byte compiled
+;; these expand to a single multiply by a float when byte compiled
 
 (defmacro degrees-to-radians (x)
   "Convert ARG from degrees to radians."

diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el
index a02c2260fd3c7c3b28321b1582d650c6322eae7c..a4018b5cf5205cf9e23ef08e8618864c0cf8256e 100644 (file)
--- a/lisp/mail/rmailout.el
+++ b/lisp/mail/rmailout.el
@@ -50,7 +50,9 @@ starting with the current one.  Deleted messages are skipped and don't count."
                            (setq tail (cdr tail))))
                        ;; If not suggestions, use same file as last time.
                        (or answer rmail-last-rmail-file)))))
-  (setq file-name (expand-file-name file-name))
+  (setq file-name
+       (expand-file-name file-name
+                         (file-name-directory rmail-last-rmail-file)))
   (setq rmail-last-rmail-file file-name)
   (rmail-maybe-set-message-counters)
   (or (get-file-buffer file-name)
@@ -129,7 +131,10 @@ starting with the current one.  Deleted messages are skipped and don't count."
                    ": "))                      
          (and rmail-last-file (file-name-directory rmail-last-file))
          rmail-last-file)))
-  (setq file-name (expand-file-name file-name))
+  (setq file-name
+       (expand-file-name file-name
+                         (and rmail-last-file
+                              (file-name-directory rmail-last-file))))
   (setq rmail-last-file file-name)
   (while (> count 0)
     (let ((rmailbuf (current-buffer))