🚀 go-pugleaf

To reproduce:

Build an Epoch with Ange-FTP and Calc dumped into it, on an RS/6000
running AIX 3.2, with MIT R5 libraries, with an IBM Xstation 130 as
the server.  Use the following .emacs file, and load up a file with 22
lines (or more) in it.  Evaluate (pos-visible-in-window-p
(point-max)).  It returns t, which is obviously not the case.

------------------------------------
(setq load-path (cons (expand-file-name "~/bin") load-path))
(setq load-path (append load-path (list "/usr/local/lib/emacs/lisp/ilisp")))

(autoload 'lisp-dir-apropos "lispdir" "Look at the Lisp Code Directory" t)

;;
;; Load sky-mouse first to make sure it doesn't do anything funky with ^H.
;;
;;(if (and (fboundp 'x-set-foreground-color) (getenv "DISPLAY"))
;;    (load "sky-mouse"))

;;
;; Diddle with help; this will go in site defaults...
;;
(global-set-key "\C-x\C-h" (aref global-map ?\C-h))

;;
;; Load the *real* .emacs file
;;
(load "init")

(require 'vm)
(setq vm-startup-with-summary nil)
(setq pop-up-windows t)
(setq vm-mutable-windows t)
(setq vm-circular-folders t)
(setq vm-included-text-prefix "> ")
(setq vm-delete-after-saving t)
(setq vm-delete-after-bursting t)
(setq vm-folder-directory "~/Mail/")
(setq vm-use-mail-auto-save t)
(setq vm-rfc934-forwarding nil)

;;
;; set up mail auto-filing
;;
(setq mail-auto-save-default (list "~/Mail/misc"))
(setq mail-auto-save-alist '(("Tom\\.Emerson" "~/Mail/tree")
			     ("lisper.*aol\\.com" "~/Mail/tree")
			     ("Tim\\.Raymond" "~/Mail/raymond")
			     ("Internet-Drafts" "~/Mail/ietf")
			     ("Chris.*\\.Hull" "~/Mail/chris")
			     ("mib" "~/Mail/hurd")
			     ("jargon@snark\\.thyrsus\\.com" "~/Mail/eric")
			     ("esr@snark\\.thyrsus\\.com" "~/Mail/eric")
			     ("snark\\.thyrsus\\.com!eric" "~/Mail/eric")
			     ("snark\\.thyrsus\\.com!esr" "~/Mail/eric")
			     ("Steve\\.Ackerman" "~/Mail/steve")))

(defun my-mail-saver (to-name)
  (if (> (length to-name) 0)
      (let* ((off (string-match "@" to-name))
	     (prospective (concat (expand-file-name "~/Mail/")
				  (substring to-name 0 off))))
	(if (file-exists-p prospective)
	    (list prospective)
	  (if (string-match "^[^!@%]+$" to-name)
	      (list "~/Mail/uvm-folk")
	    (if (string-match "uvm.edu"
			      (substring to-name off nil))
		(list "~/Mail/uvm-folk")))))))

(setq mail-auto-save-hook 'my-mail-saver)

(global-set-key "\C-x\C-y" 'vm)
(global-set-key "\C-x\C-j" 'vm-visit-folder)

;;
;; To get rid of that $%^^& popper in Ilisp...
;;
(setq lisp-no-popper t)
(setq comint-always-scroll t)

;;
;; From the ilisp manual
;;
(setq ilisp-load-hook
      '(lambda ()
        ;; Change default key prefix to C-c
        (setq ilisp-prefix "\C-c")
        ;; Sample initialization hook.  Set the inferior LISP directory to
        ;; the directory of the buffer that spawned it on the first prompt.
        (add-hook 'ilisp-init-hook
         (function (lambda ()
           (default-directory-lisp ilisp-last-buffer))))))


;;;
;;; This is to replace Rnmail
;;;
(setq command-switch-alist (append command-switch-alist
				   (list '("-Rnmail" . Rnmail))))

(defun Rnmail (name)
  "Replacement for Trn's Rnmail program.  Called as a command-line switch."
  (let ((name (car command-line-args-left)))
    (setq command-line-args-left (cdr command-line-args-left))
    (call-interactively 'mail)
    (delete-region (point-min) (point-max))
    (insert-file name)
    (goto-char (point-min))
    (if (search-forward "\n\n" (point-max) t)
	(replace-match "\n--text follows this line--\n")
	(error "Header of message not found"))))

(require 'crypt)			;use Kyle's crypt.el

;;
;; Make it easy to look up FAQ postings...
;; This would be simpler were it not for AIX stupidity...
;;
(defun find-faq (keywords)
  "Find an FAQ in the archives."
  (interactive "sKeywords: ")
  (with-output-to-temp-buffer "FAQ Archive Lookup"
    (call-process "perl" nil "FAQ Archive Lookup" nil 
		  "-S" "lookup-faq" keywords)
    (save-excursion
      (set-buffer "FAQ Archive Lookup")
      (use-local-map (current-local-map))
      (local-set-key "\C-c\C-c" 'faq-find-file))))

(defun faq-find-file ()
  "Find the faq file at point."
  (interactive)
  (re-search-forward "^\\([^:]+\\):")
  (find-file (buffer-substring (match-beginning 1) (match-end 1))))

(defvar c-faq-sysdep-quote
  "From the comp.lang.c FAQ, question 12.1:

	Operating system specific questions are not appropriate for
	comp.lang.c.  Many common questions are answered in
	frequently-asked questions postings in such groups as
	comp.unix.questions and comp.os.msdos.programmer.  Note that
	the answers are often not unique even across different variants
	of a system; bear in mind when answering system-specific
	questions that the answer that applies to your system may not
	apply to everyone else's.

"
  "Dismissal for system-dependent questions in comp.lang.c")

(defun c-dismiss-question ()
  "Dismiss a question in comp.lang.c as being system-dependent."
  (interactive)
  (insert c-faq-sysdep-quote))

;;
;; This only gets executed when Epoch starts up...
;;
(if (not (boundp 'epoch::version))
    t
  (load "scr-title")
  (setq screen-title-is-buffer-name t)
  (global-set-key "\C-x8" 'other-screen-prefix)
  (global-set-key "\C-x7" 'epoch-cmds-prefix)
  (global-unset-key "\C-z")

  (defvar mode-line-star-style (make-style))
  (set-style-background mode-line-star-style "white")
  (set-style-foreground mode-line-star-style "#224262")

  (defvar mode-line-buffer-style (make-style))
  (set-style-foreground mode-line-buffer-style "red")
  (set-style-background mode-line-buffer-style "white")
  (set-style-font mode-line-buffer-style
		  "-b&h-lucidabright-demibold-r-*-*-*-120-100-100-*-1")

  (defvar mode-line-mode-style (make-style))
  (set-style-foreground mode-line-mode-style "green")
  (set-style-background mode-line-mode-style "white")
  (set-style-font mode-line-mode-style
		  "-b&h-lucidabright-demibold-r-*-*-*-120-100-100-*-1")

  (defvar mode-line-nav-style (make-style))
  (set-style-background mode-line-nav-style "white")
  (set-style-foreground mode-line-nav-style "#224262")
  (set-style-font mode-line-nav-style
		  "-bitstream-charter-bold-i-*-*-*-120-100-100-*-1")
  (setq default-mode-line-format 
	(list
	 ""
	 'mode-line-star-style
	 'mode-line-modified
	 'mode-line-buffer-style
	 'mode-line-buffer-identification
	 'mode-line-star-style
	 "   "
	 'mode-line-mode-style
	 'global-mode-string
	 "   %[("
	 'mode-name 'minor-mode-alist "%n" 'mode-line-process
	 ")%]"
	 'mode-line-star-style
	 "----"
	 'mode-line-nav-style
	 (cons -3 "%p")
	 'mode-line-star-style
	 "-%-")))

;;; Local Options:
(put 'local-options 'packages '(edb supercite vm rcs-mode lightbrite crypt auc-tex))

(put 'local-options 'imacs 'imacs-complain)
(put 'local-options 'mouse 'use-hyperbole)

(put 'local-options 'suspend 'uvm-suspend)

(put 'local-options 'backspace 'rms-backspace)

(put 'local-options 'xoff 'old-xoff-hack)



------------------------------------