🚀 go-pugleaf

rmailout.el has always (18.53-18.57) had this problem that it
completes using the directory of the last-rmail-file, but then expands
using the current buffer's directory.

Here's a fix that we have used at KSR:

===================================================================
RCS file: RCS/rmailout.el,v
retrieving revision 1.1
diff -c -r1.1 rmailout.el
*** 1.1	1991/02/27 19:30:11
--- rmailout.el	1991/02/27 19:46:14
***************
*** 33,39 ****
  			      ") ")
  		      (file-name-directory rmail-last-rmail-file)
  		      rmail-last-rmail-file)))
!   (setq file-name (expand-file-name file-name))
    (setq rmail-last-rmail-file file-name)
    (rmail-maybe-set-message-counters)
    (or (get-file-buffer file-name)
--- 33,41 ----
  			      ") ")
  		      (file-name-directory rmail-last-rmail-file)
  		      rmail-last-rmail-file)))
!   (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)
***************
*** 96,102 ****
  	       ": "))			
       (and rmail-last-file (file-name-directory rmail-last-file))
       rmail-last-file)))
!   (setq file-name (expand-file-name file-name))
    (setq rmail-last-file file-name)
    (let ((rmailbuf (current-buffer))
  	(tembuf (get-buffer-create " rmail-output"))
--- 98,107 ----
  	       ": "))			
       (and rmail-last-file (file-name-directory rmail-last-file))
       rmail-last-file)))
!   (setq file-name
!     (expand-file-name file-name
! 		      (and rmail-last-file
! 			   (file-name-directory rmail-last-file))))
    (setq rmail-last-file file-name)
    (let ((rmailbuf (current-buffer))
  	(tembuf (get-buffer-create " rmail-output"))