Subject: bug#24298: 25.1; problem with restoring desktop

From: John Covici <[email-masked]>
Date: Wed, 24 Aug 2016 07:31:03 -0400

I am having a problem restoring my desktop, when there are several
buffers.  Instead of restoring the correct buffer as the current one, a
random buffer is restored.

Here is my .emacs file if that would help.

;; Added by Package.el.  This must come before configurations of
;; installed packages.  Don't delete this line.  If you don't want it,
;; just comment it out by adding a semicolon to the start of the line.
;; You may delete these explanatory comments.
(require 'package)
(add-to-list 'package-archives
		   '("melpa" . "http://melpa.org/packages/")
		   (when (< emacs-major-version 24)
			;; For important compatibility libraries like cl-lib
			  (add-to-list 'package-archives '("gnu" . "http://elpa.gnu.org/packages/"))))
(package-initialize)

(setq  gnus-inhibit-startup-message t        )

(setq default-major-mode 'text-mode)
(load "bookmark")
(load "saveplace")
(setq history-length t)

(add-hook'c-mode-common-hook 
 (function(lambda()
(c-toggle-auto-state 1))))
;   (autoload 'csharp-mode "csharp-mode" "Major mode for editing C# code." t)
;   (setq auto-mode-alist
;      (append '(("\\.cs$" . csharp-mode)) auto-mode-alist))
;   (setq auto-mode-alist
;      (append '(("\\.cs$" . csharp-mode)) auto-mode-alist))

(add-hook 'text-mode-hook 'turn-on-auto-fill)
(global-set-key [f1] 'help-command)
(global-set-key "\C-s" 'nonincremental-re-search-forward)
(global-set-key "\C-r" 'nonincremental-re-search-backward)
(global-set-key [f6] 'nonincremental-repeat-search-forward)
(global-set-key [f7] 'nonincremental-repeat-search-backward)
(global-set-key [f8] 'replace-regexp)
(global-set-key [f9] 'repeat-matching-complex-command)
(global-set-key [home] 'beginning-of-line)
(global-set-key [end] 'end-of-line)
(column-number-mode 1)

;(autoload 'perl-mode "cperl-mode" "alternate mode for editing Perl programs" t)
(add-hook'cperl-mode-hook
 (function(lambda()
(setq cperl-hairy t)
(setq cperl-extra-newline-before-brace 1)
(setq cperl-auto-newline 1)
(setq cperl-auto-newline-after-colon 1)
(setq cperl-indent-level 4)
(setq cperl-electric-parens-string nil)
(setq cperl-continued-statement-offset 0)

)))

;; Add signature at the end of the email.
(add-hook 'mh-letter-mode-hook
       '(lambda () (save-excursion
               (goto-char (point-max))
               (mh-insert-signature))))
(setq-default next-line-add-newlines nil)
(setq font-running-xemacs nil)
;          (defun turn-off-backup ()
;            (set (make-local-variable 'version-control) 2))
          
;(add-hook 'nnfolder-save-buffer-hook (lambda () (turn-off-backup)))
(setq next-screen-context-lines 0)
(setq inhibit-startup-message t)
(menu-bar-mode -1); turn off those ------- menus
(setq browse-url-lynx-input-attempts 1)
(setq browse-url-lynx-emacs-args "-showcursor")
(defun browse-url-lynx-emacs (url &optional new-buffer)
  "Ask the Lynx WWW browser to load URL.
Default to the URL around or before point.  With a prefix argument, run
a new Lynx process in a new buffer.

When called interactively, if variable `browse-url-new-window-flag' is
non-nil, load the document in a new lynx in a new term window,
otherwise use any existing one.  A non-nil interactive prefix argument
reverses the effect of `browse-url-new-window-flag'.

When called non-interactively, optional second argument NEW-WINDOW is
used instead of `browse-url-new-window-flag'."
  (interactive (browse-url-interactive-arg "Lynx URL: "))
  (let* ((system-uses-terminfo t)       ; Lynx uses terminfo
	 ;; (term-term-name "vt100") ; ??
	 (buf (get-buffer "*lynx*"))
	 (proc (and buf (get-buffer-process buf)))
	 (n browse-url-lynx-input-attempts))
    (if (and (browse-url-maybe-new-window new-buffer) buf)
	;; Rename away the OLD buffer. This isn't very polite, but
	;; term insists on working in a buffer named *lynx* and would
	;; choke on *lynx*<1>
	(progn (set-buffer buf)
	       (rename-uniquely)))
    (if (or (browse-url-maybe-new-window new-buffer)
	    (not buf)
	    (not proc)
	    (not (memq (process-status proc) '(run stop))))
	;; start a new lynx
	(progn
          (setq buf
                (apply #'make-term
                       `("lynx" "lynx" nil ,@browse-url-lynx-emacs-args
			 ,url)))
          (switch-to-buffer buf)
          (term-char-mode)
          (set-process-sentinel
           (get-buffer-process buf)
           ;; Don't leave around a dead one (especially because of its
           ;; munged keymap.)
           (lambda (process event)
             (if (not (memq (process-status process) '(run stop)))
                 (let ((buf (process-buffer process)))
                   (if buf (kill-buffer buf)))))))
      ;; send the url to lynx in the old buffer
      (let ((win (get-buffer-window buf t)))
	(if win
	    (select-window win)
	  (switch-to-buffer buf)))
      (if (eq (following-char) ?_)
	  (cond ((eq browse-url-lynx-input-field 'warn)
		 (error "Please move out of the input field first"))
		((eq browse-url-lynx-input-field 'avoid)
		 (while (and (eq (following-char) ?_) (> n 0))
		   (term-send-down) ; down arrow
		   (sit-for browse-url-lynx-input-delay))
		 (if (eq (following-char) ?_)
		     (error "Cannot move out of the input field, sorry")))))
      (term-send-string proc (concat "g" ; goto
				     "\C-u" ; kill default url
				     url
				     "\r")))))

(defun forward-word-to-nonblank ()
"forwards past the blank space where forward-word normally lands"
(interactive)
(forward-word 2)
(forward-word -1)
)
(global-set-key [\C-right] 'forward-word-to-nonblank)
(global-set-key [\M-right] 'forward-word-to-nonblank)
(global-set-key "\M-f" 'forward-word-to-nonblank)
 
(defun  eir-fix-articles () 
"function to replaceeir articles with correct versions and do cleanup"
(setq ignore-auto 1)
(setq noconfirm 1)
(setq preserve-modes 1)
(shell-command "ls *.TXT >temp.sc")
(shell-command "chmod u+x temp.sc")
(find-file "temp.sc")
(goto-char (point-min))
  (while (re-search-forward "^.*$" nil t)
    (replace-match "\\& \\&" nil nil))
(goto-char (point-min))
  (while (re-search-forward " EIR...\$*" nil t)
    (replace-match " " nil nil))
(goto-char (point-min))
  (while (re-search-forward "\\$" nil t)
    (replace-match "\\\\$" nil nil))
(goto-char (point-min))
  (while (re-search-forward "^" nil t)
    (replace-match "mv " nil nil))
(beginning-of-line)
(kill-line)
(save-buffer)
(shell-command "./temp.sc")
(when (file-exists-p "CON.TXT")
(rename-file "CON.TXT" "CONX.TXT"))
(shell-command "ls *.TXT >temp.sc")
(revert-buffer ignore-auto noconfirm preserve-modes)
(goto-char (point-min))
  (while (re-search-forward "^" nil t)
    (replace-match "miles2 " nil nil))
(beginning-of-line)
(kill-line)
(save-buffer)
(shell-command "./temp.sc")
(shell-command "ls -1 -F -a .. >temp.sc")
(revert-buffer ignore-auto noconfirm preserve-modes)
(goto-char (point-min))
(re-search-forward "txt/" nil t)
(beginning-of-line)
(kill-line)
(kill-line)
(goto-char (point-min))
(kill-line)
(kill-line)
(kill-line)
(kill-line)
  (while (re-search-forward "\*" nil t)
    (replace-match "" nil nil))
(goto-char (point-min))
  (while (re-search-forward "^.*$" nil t)
    (replace-match "\\& \\&" nil nil))
(goto-char (point-min))
  (while (re-search-forward "\\..* " nil t)
    (replace-match ".art ../" nil nil))
(goto-char (point-min))
  (while (re-search-forward "^" nil t)
    (replace-match "mv " nil nil))
(beginning-of-line)
(kill-line)
(save-buffer)
)
(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(browse-url-browser-function (quote browse-url-lynx-emacs))
 '(browse-url-lynx-emacs-args nil t)
 '(browse-url-lynx-input-field nil)
 '(canlock-password "5de3542f3d08b117db60777f7b3f934ff0248a72")
 '(delete-old-versions t)
 '(desktop-missing-file-warning nil)
 '(desktop-path (quote (".")))
 '(desktop-save t)
 '(desktop-save-mode t nil (desktop))
 '(dired-kept-versions 1)
 '(dired-recursive-copies (quote always))
 '(dired-recursive-deletes (quote always))
 '(doc-view-conversion-refresh-interval 0)
 '(doc-view-odf->pdf-converter-program "odt2txt")
 '(doc-view-pdftotext-program "pdftotext")
 '(doc-view-unoconv-program "odt2txt")
 '(elmo-imap4-default-port 993)
 '(elmo-imap4-default-server "ccs.covici.com")
 '(elmo-imap4-default-stream-type (quote ssl))
 '(elmo-message-fetch-confirm t)
 '(elmo-message-fetch-threshold 900000)
 '(epa-pinentry-mode (quote loopback))
 '(erc-log-channels-directory "~/irclog")
 '(erc-log-mode t)
 '(erc-log-write-after-insert t)
 '(erc-log-write-after-send t)
 '(erc-nick "covici")
 '(kept-new-versions 5)
 '(kept-old-versions 0)
 '(large-file-warning-threshold 93000000)
 '(line-number-display-limit 100000000)
 '(mail-archive-file-name "copy_of_outgoing.txt")
 '(mail-default-headers nil)
 '(mail-default-reply-to "[email-masked]")
 '(mail-host-address nil)
 '(mail-send-nonascii nil)
 '(mail-signature t)
 '(mail-use-rfc822 t)
 '(mail-user-agent (quote message-user-agent))
 '(mail-yank-ignored-headers
   "^via:\\|^mail-from:\\|^origin:\\|^status:\\|^remailed\\|^received:\\|^message-id:\\|^summary-line:\\|^in-reply-to:\\|^return-path:")
 '(mail-yank-prefix ">")
 '(mh-compose-space-does-completion-flag t)
 '(mh-delete-yanked-msg-window-flag t)
 '(mh-display-buttons-for-alternatives-flag t)
 '(mh-forward-subject-format "%s: %s (fwd)")
 '(mh-identity-default nil)
 '(mh-identity-list (quote (("covici" ((":pgg-default-user-id" . "covici"))))))
 '(mh-inc-spool-list nil)
 '(mh-invisible-header-fields (quote ("Organization" "Sender" "User-agent" "X-")))
 '(mh-reply-default-reply-to "all")
 '(mh-yank-behavior (quote autoattrib))
 '(mime-display-text/plain-flowed-fill-column 65)
 '(mime-edit-split-message nil)
 '(mime-edit-translate-hook (quote (mime-edit-insert-signature)))
 '(mime-pgp-decrypt-when-preview t)
 '(mime-view-text/html-previewer (quote shr))
 '(next-line-add-newlines nil)
 '(package-selected-packages (quote (wanderlust)))
 '(pgg-query-keyserver t)
 '(save-place-limit nil)
 '(save-place-mode t)
 '(save-place-version-control (quote nospecial))
 '(scroll-down-aggressively nil)
 '(scroll-up-aggressively nil)
 '(send-mail-function nil)
 '(split-width-threshold nil)
 '(tab-width 5)
 '(track-eol t)
 '(undo-ask-before-discard nil)
 '(undo-limit 30000)
 '(undo-outer-limit 4000000)
 '(undo-strong-limit 40000)
 '(url-automatic-caching t)
 '(url-keep-history t)
 '(url-news-server "news.patriot.net")
 '(url-personal-mail-address "[email-masked]")
 '(url-privacy-level (quote none))
 '(user-full-name "John Covici")
 '(version-control t)
 '(w3-maximum-line-length 80)
 '(wl-alias-file "~/Mail/aliases")
 '(wl-auto-save-drafts-interval 30)
 '(wl-demo nil)
 '(wl-demo-display-logo nil)
 '(wl-draft-always-delete-myself t)
 '(wl-draft-folder "+drafts")
 '(wl-draft-preview-process-pgp t)
 '(wl-draft-send-mail-function (quote wl-draft-send-mail-with-sendmail))
 '(wl-fcc "+Sent Items")
 '(wl-folder-move-cur-folder t)
 '(wl-interactive-send nil)
 '(wl-message-ignored-field-list (quote ("^.*$")))
 '(wl-message-visible-field-list
   (quote
    ("^To:" "^Subject:" "^Date:" "^Reply" "^From:" "^Cc:")))
 '(wl-nntp-posting-port nil)
 '(wl-nntp-posting-server "news-central.giganews.com")
 '(wl-nntp-posting-user "gn71330")
 '(wl-organization "Covici Computer Systems")
 '(wl-smtp-authenticate-type "login")
 '(wl-smtp-connection-type (quote starttls))
 '(wl-smtp-posting-port 587)
 '(wl-smtp-posting-server "ccs.covici.com")
 '(wl-smtp-posting-user "covici")
 '(wl-summary-width nil)
 '(wl-temporary-file-directory "/audio/tmp/")
 '(wl-trash-folder "+Deleted Items"))

(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 )

(add-hook 'w3-mode-hook (lambda () (setq truncate-lines nil)))
;;; Emacs-w3 configuration options
(autoload 'w3-preview-this-buffer "w3" "WWW Previewer" t)
(autoload 'w3-follow-url-at-point "w3" "Find document at pt" t)
(autoload 'w3 "w3" "WWW Browser" t)
(autoload 'w3-open-local "w3" "Open local file for WWW browsing" t)
(autoload 'w3-fetch "w3" "Open remote file for WWW browsing" t)
(autoload 'w3-use-hotlist "w3" "Use shortcuts to view WWW docs" t)
(autoload 'w3-show-hotlist "w3" "Use shortcuts to view WWW docs" t)
(autoload 'w3-follow-link "w3" "Follow a hypertext link." t)
(autoload 'w3-batch-fetch "w3" "Batch retrieval of URLs" t)
(autoload 'url-get-url-at-point "url" "Find the url under the cursor" nil)
(autoload 'url-file-attributes  "url" "File attributes of a URL" nil)
(autoload 'url-popup-info "url" "Get info on a URL" t)
(autoload 'url-retrieve   "url" "Retrieve a URL" nil)
(autoload 'url-buffer-visiting "url" "Find buffer visiting a URL." nil)
(autoload 'gopher-dispatch-object "gopher" "Fetch gopher dir" t)
;;; End of Emacs-w3 configuration options
;;; Emacs-w3 configuration options
(autoload 'w3-preview-this-buffer "w3" "WWW Previewer" t)
(autoload 'w3-follow-url-at-point "w3" "Find document at pt" t)
(autoload 'w3 "w3" "WWW Browser" t)
(autoload 'w3-open-local "w3" "Open local file for WWW browsing" t)
(autoload 'w3-fetch "w3" "Open remote file for WWW browsing" t)
(autoload 'w3-use-hotlist "w3" "Use shortcuts to view WWW docs" t)
(autoload 'w3-show-hotlist "w3" "Use shortcuts to view WWW docs" t)
(autoload 'w3-follow-link "w3" "Follow a hypertext link." t)
(autoload 'w3-batch-fetch "w3" "Batch retrieval of URLs" t)
(autoload 'url-get-url-at-point "url" "Find the url under the cursor" nil)
(autoload 'url-file-attributes  "url" "File attributes of a URL" nil)
(autoload 'url-popup-info "url" "Get info on a URL" t)
(autoload 'url-retrieve   "url" "Retrieve a URL" nil)
(autoload 'url-buffer-visiting "url" "Find buffer visiting a URL." nil)
(autoload 'gopher-dispatch-object "gopher" "Fetch gopher dir" t)
;;; End of Emacs-w3 configuration options

;;; Emacs/W3 Configuration
(setq load-path (cons "/usr/share/emacs/site-lisp" load-path))
(condition-case () (require 'w3-auto "w3-auto") (error nil))

(put 'upcase-region 'disabled nil)
   (autoload 'vm "vm" "Start VM on your primary inbox." t)
   (autoload 'vm-visit-folder "vm" "Start VM on an arbitrary folder." t)
   (autoload 'vm-visit-virtual-folder "vm" "Visit a VM virtual folder." t)
   (autoload 'vm-mode "vm" "Run VM major mode on a buffer" t)
   (autoload 'vm-mail "vm" "Send a mail message using VM." t)
   (autoload 'vm-submit-bug-report "vm" "Send a bug report about VM." t)

---- .emacs ends here -----

In GNU Emacs 25.1.1 (x86_64-pc-linux-gnu, GTK+ Version 3.20.8)
 of 2016-08-23 built on ccs.covici.com
System Description:	Gentoo Base System release 2.2

Configured using:
 'configure --prefix=/usr --build=x86_64-pc-linux-gnu
 --host=x86_64-pc-linux-gnu --mandir=/usr/share/man
 --infodir=/usr/share/info --datadir=/usr/share --sysconfdir=/etc
 --localstatedir=/var/lib --disable-dependency-tracking
 --disable-silent-rules --docdir=/usr/share/doc/emacs-25.1_rc2
 --htmldir=/usr/share/doc/emacs-25.1_rc2/html --libdir=/usr/lib64
 --program-suffix=-emacs-25 --infodir=/usr/share/info/emacs-25
 --localstatedir=/var
 --enable-locallisppath=/etc/emacs:/usr/share/emacs/site-lisp
 --with-gameuser=:gamestat --without-compress-install
 --with-file-notification=inotify --enable-acl --with-dbus --with-gpm
 --without-hesiod --without-kerberos --without-kerberos5 --with-xml2
 --without-selinux --with-gnutls --without-wide-int --with-zlib
 --with-sound=alsa --with-x --without-ns --without-gconf
 --without-gsettings --without-toolkit-scroll-bars --with-gif
 --with-jpeg --with-png --with-rsvg --with-tiff --with-xpm
 --without-imagemagick --without-xft --without-cairo --without-libotf
 --without-m17n-flt --with-x-toolkit=gtk3 --without-xwidgets
 GENTOO_PACKAGE=app-editors/emacs-25.1_rc2 'CFLAGS=-O2 -mtune=core2
 -pipe -ggdb' CPPFLAGS= 'LDFLAGS=-Wl,-O1 -Wl,--as-needed''

Configured features:
XPM JPEG TIFF GIF PNG RSVG SOUND GPM DBUS NOTIFY ACL GNUTLS LIBXML2 ZLIB
GTK3 X11

Important settings:
  value of $LANG: en_US.UTF-8
  locale-coding-system: utf-8-unix

Major mode: Lisp Interaction

Minor modes in effect:
  desktop-save-mode: t
  save-place-mode: t
  tooltip-mode: t
  global-eldoc-mode: t
  electric-indent-mode: t
  mouse-wheel-mode: t
  tool-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  column-number-mode: t
  line-number-mode: t
  transient-mark-mode: t

Recent messages:
Loading bookmark...done
Loading saveplace...done
Loading desktop...done
Wrote /home/covici/.emacs.desktop.lock
Desktop: 1 frame, 1 buffer restored.
For information about GNU Emacs and the GNU system, type C-h C-a.
Type C-x 1 to delete the help window.

Load-path shadows:
/home/covici/.emacs.d/elpa/flim-20160311.1537/hex-util hides /usr/share/emacs/25.1/lisp/hex-util
/home/covici/.emacs.d/elpa/flim-20160311.1537/md4 hides /usr/share/emacs/25.1/lisp/md4
/home/covici/.emacs.d/elpa/flim-20160311.1537/ntlm hides /usr/share/emacs/25.1/lisp/net/ntlm
/home/covici/.emacs.d/elpa/flim-20160311.1537/hmac-def hides /usr/share/emacs/25.1/lisp/net/hmac-def
/home/covici/.emacs.d/elpa/flim-20160311.1537/sasl-digest hides /usr/share/emacs/25.1/lisp/net/sasl-digest
/home/covici/.emacs.d/elpa/flim-20160311.1537/sasl-ntlm hides /usr/share/emacs/25.1/lisp/net/sasl-ntlm
/home/covici/.emacs.d/elpa/flim-20160311.1537/sasl hides /usr/share/emacs/25.1/lisp/net/sasl
/home/covici/.emacs.d/elpa/flim-20160311.1537/sasl-cram hides /usr/share/emacs/25.1/lisp/net/sasl-cram
/home/covici/.emacs.d/elpa/flim-20160311.1537/hmac-md5 hides /usr/share/emacs/25.1/lisp/net/hmac-md5
/usr/share/emacs/site-lisp/mh-e/mh-compat hides /usr/share/emacs/25.1/lisp/mh-e/mh-compat
/usr/share/emacs/site-lisp/mh-e/mh-e hides /usr/share/emacs/25.1/lisp/mh-e/mh-e
/usr/share/emacs/site-lisp/mh-e/mh-xface hides /usr/share/emacs/25.1/lisp/mh-e/mh-xface
/usr/share/emacs/site-lisp/mh-e/mh-seq hides /usr/share/emacs/25.1/lisp/mh-e/mh-seq
/usr/share/emacs/site-lisp/mh-e/mh-utils hides /usr/share/emacs/25.1/lisp/mh-e/mh-utils
/usr/share/emacs/site-lisp/mh-e/mh-search hides /usr/share/emacs/25.1/lisp/mh-e/mh-search
/usr/share/emacs/site-lisp/mh-e/mh-scan hides /usr/share/emacs/25.1/lisp/mh-e/mh-scan
/usr/share/emacs/site-lisp/mh-e/mh-funcs hides /usr/share/emacs/25.1/lisp/mh-e/mh-funcs
/usr/share/emacs/site-lisp/mh-e/mh-show hides /usr/share/emacs/25.1/lisp/mh-e/mh-show
/usr/share/emacs/site-lisp/mh-e/mh-limit hides /usr/share/emacs/25.1/lisp/mh-e/mh-limit
/usr/share/emacs/site-lisp/mh-e/mh-tool-bar hides /usr/share/emacs/25.1/lisp/mh-e/mh-tool-bar
/usr/share/emacs/site-lisp/mh-e/mh-speed hides /usr/share/emacs/25.1/lisp/mh-e/mh-speed
/usr/share/emacs/site-lisp/mh-e/mh-print hides /usr/share/emacs/25.1/lisp/mh-e/mh-print
/usr/share/emacs/site-lisp/mh-e/mh-junk hides /usr/share/emacs/25.1/lisp/mh-e/mh-junk
/usr/share/emacs/site-lisp/mh-e/mh-mime hides /usr/share/emacs/25.1/lisp/mh-e/mh-mime
/usr/share/emacs/site-lisp/mh-e/mh-thread hides /usr/share/emacs/25.1/lisp/mh-e/mh-thread
/usr/share/emacs/site-lisp/mh-e/mh-acros hides /usr/share/emacs/25.1/lisp/mh-e/mh-acros
/usr/share/emacs/site-lisp/mh-e/mh-letter hides /usr/share/emacs/25.1/lisp/mh-e/mh-letter
/usr/share/emacs/site-lisp/mh-e/mh-alias hides /usr/share/emacs/25.1/lisp/mh-e/mh-alias
/usr/share/emacs/site-lisp/mh-e/mh-inc hides /usr/share/emacs/25.1/lisp/mh-e/mh-inc
/usr/share/emacs/site-lisp/mh-e/mh-identity hides /usr/share/emacs/25.1/lisp/mh-e/mh-identity
/usr/share/emacs/site-lisp/mh-e/mh-folder hides /usr/share/emacs/25.1/lisp/mh-e/mh-folder
/usr/share/emacs/site-lisp/mh-e/mh-buffers hides /usr/share/emacs/25.1/lisp/mh-e/mh-buffers
/usr/share/emacs/site-lisp/mh-e/mh-gnus hides /usr/share/emacs/25.1/lisp/mh-e/mh-gnus
/usr/share/emacs/site-lisp/mh-e/mh-loaddefs hides /usr/share/emacs/25.1/lisp/mh-e/mh-loaddefs
/usr/share/emacs/site-lisp/mh-e/mh-comp hides /usr/share/emacs/25.1/lisp/mh-e/mh-comp

Features:
(shadow sort mail-extr warnings emacsbug message dired rfc822 mml
mml-sec epg mm-decode mm-bodies mm-encode mail-parse rfc2231 mailabbrev
gmm-utils mailheader sendmail rfc2047 rfc2045 ietf-drums thingatpt
term/xterm xterm eww mm-url gnus gnus-ems nnheader mail-utils wid-edit
url-queue url url-proxy url-privacy url-expand url-methods url-history
url-cookie url-domsuf url-util url-parse auth-source cl-seq eieio
eieio-core cl-macs gnus-util time-date mm-util help-fns mail-prsvr
password-cache url-vars mailcap shr dom subr-x browse-url format-spec
desktop frameset cus-start cus-load saveplace bookmark pp finder-inf
info package epg-config seq byte-opt gv bytecomp byte-compile cl-extra
help-mode easymenu cconv site-gentoo edmacro kmacro cl-loaddefs pcase
cl-lib imenu mule-util tooltip eldoc electric uniquify ediff-hook
vc-hooks lisp-float-type mwheel x-win term/common-win x-dnd tool-bar dnd
fontset image regexp-opt fringe tabulated-list newcomment elisp-mode
lisp-mode prog-mode register page menu-bar rfn-eshadow timer select
scroll-bar mouse jit-lock font-lock syntax facemenu font-core frame
cl-generic cham georgian utf-8-lang misc-lang vietnamese tibetan thai
tai-viet lao korean japanese eucjp-ms cp51932 hebrew greek romanian
slovak czech european ethiopic indian cyrillic chinese charscript
case-table epa-hook jka-cmpr-hook help simple abbrev minibuffer
cl-preloaded nadvice loaddefs button faces cus-face macroexp files
text-properties overlay sha1 md5 base64 format env code-pages mule
custom widget hashtable-print-readable backquote dbusbind inotify
dynamic-setting move-toolbar gtk x-toolkit x multi-tty
make-network-process emacs)

Memory information:
((conses 16 199073 6176)
 (symbols 48 29257 0)
 (miscs 40 51 138)
 (strings 32 47311 6660)
 (string-bytes 1 1248933)
 (vectors 16 19828)
 (vector-slots 8 513662 3906)
 (floats 8 271 242)
 (intervals 56 411 136)
 (buffers 976 23)
 (heap 1024 21938 1143))

-- 
Your life is like a penny.  You're going to lose it.  The question is:
How do
you spend it?

         John Covici
         [email-masked]