segv in 21.1 on Irix

[Rohan Hart]

This bug report will be sent to the Free Software Foundation,
not to your local site managers!
Please write in English, because the Emacs maintainers do not have
translators to read other languages for them.

Your bug report will be posted to the bug-gnu-emacs@gnu.org mailing list,
and to the gnu.emacs.bug news group.

In GNU Emacs 21.1.2 (mips-sgi-irix6.5, X toolkit, Xaw3d scroll bars)
 of 2001-11-13 on metro
configured using `configure  --prefix=/usr/shared-apps/ 
--bindir=/usr/shared-apps/bin/mips --libexecdir=/usr/shared-apps/libexec'
Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: 
  locale-coding-system: nil
  default-enable-multibyte-characters: nil

Please describe exactly what actions triggered the bug
and the precise symptoms of the bug:

Start emacs
load inbox file: C-x C-f ~/Mail/inbox
remove last email: M-> C-r from vm C-w
save: C-x C-s
start vm: M-x vm

emacs will load vm and bbdb then crash at an unknown function...
  warning: Warning: GDB can't find the start of the function at 0xfb65c1c.
This same crash location has occured several times depending on the
contents of the file, it should currently fail with:

0x10310acc "sit-for"
0x10708c78 "vm-display-startup-message"
0x1030f928 "byte-code"
0x105cb9c4 "vm"
0x1030f9d4 "call-interactively"
0x1030af1c "execute-extended-command"
0x1030f9d4 "call-interactively"

but has also crashed at:

0x1030ca7c "read-char"
0x1030f928 "byte-code"
0x106ca1bc "vm-read-password"
0x1030f928 "byte-code"
0x108b1040 "vm-imap-make-session"
0x1030f928 "byte-code"
0x108b0ef4 "vm-imap-move-mail"
0x106c2ef0 "vm-get-spooled-mail"
0x1030f928 "byte-code"
0x105cbad4 "vm"
0x1030f9d4 "call-interactively"
0x1030af1c "execute-extended-command"
0x1030f9d4 "call-interactively"

and:

0x10316880 "scroll-up"
0x1030f928 "byte-code"
0x1030f928 "byte-code"
0x1030f928 "byte-code"
0x1095bde8 "vm-howl-if-eom"
0x1095bff8 "vm-show-current-message"
0x1070acc8 "vm-preview-current-message"
0x1030f928 "byte-code"
0x105cb9f8 "vm"
0x1030f9d4 "call-interactively"
0x1030af1c "execute-extended-command"
0x1030f9d4 "call-interactively"

and when comparing the file to a successful load (seems to always
crash when running under gdb but succeeds occasionally when run by
itself):

0x10310acc "sit-for"
0x1079d7dc "ediff-setup-control-frame"
0x1079d474 "ediff-setup-windows-multiframe-compare"
0x10350380 "ediff-setup-windows-multiframe"
0x1079cf50 "ediff-setup-windows"
0x10504910 "ediff-setup"
0x103fcac0 "ediff-buffers-internal"
0x1034f924 "ediff-buffers"
0x1030f9d4 "call-interactively"

It seems that unless this is done immediately emacs has loaded then it
will load correctly.  Unfortunately it then crashes essentially at
random at some later date.

I can provide the exact file if necessary, didn't include it here as I
don't want a chunk of my inbox published to the world.

I had to install a local copy of Xpm as the default in Irix6.5 is
fractionally to old.

my .emacs:

----------------------------------------------------------------------
(set-language-environment 'Latin-1)
(setq ispell-dictionary "british")

(setq-default ediff-diff-options "-iwd")
(setq-default ediff-ignore-similar-regions t)

(setq auto-mode-alist
      (append auto-mode-alist
              '(("\\.java$"   . java-mode))
              '(("\\.tar$"    . tar-mode))
              '(("\\.tgz$"    . tar-mode))
              '(("\\.tar.gz$" . tar-mode))))

(defun modify-alist (alist-symbol key value &optional search-cdr)
  (let ((alist (symbol-value alist-symbol)))
    (while alist
      (if (eq (if search-cdr
                  (cdr (car alist))
                (car (car alist))) key)
          (setcdr (car alist) value)
        (setq alist (cdr alist))))))
    
(modify-alist 'interpreter-mode-alist 'perl-mode 'cperl-mode t)
(modify-alist 'auto-mode-alist        'perl-mode 'cperl-mode t)

(if (not (fboundp 'find-face))
  (defalias 'find-face 'internal-find-face))

(global-font-lock-mode)
(add-hook 'font-lock-mode-hook 'turn-on-lazy-lock)

(setq Info-default-directory-list
      (append Info-default-directory-list
              (list (concat (getenv "HOME") "/info/"))))

(setq-default minibuffer-max-depth nil)

(server-start)

;; turn compression on
(auto-compression-mode 1)

(put 'eval-expression 'disabled nil)

(put 'narrow-to-region 'disabled nil)

(setq-default ange-ftp-ftp-program-name "ftp")

;; 4gl stuff
(setq-default 4gl-clean-buffer-before-saving t)

;; java indent stuff
(add-hook 'java-mode-hook '(lambda ()
                             (c-set-offset 'arglist-intro '+)))

;; BBDB stuff
(require 'bbdb)
(bbdb-initialize 'gnus 'message 'vm 'sc)  ; 'w3
(setq bbdb-pop-up-elided-display t)
(setq bbdb-canonicalize-net-hook
      '(lambda (addr)
         (cond ((string-match 
"\\`\\([^@]+@\\).*\\.\\(peace\\.\\(com\\|co\\.nz\\)\\)\\'"
                              addr)
                (concat (substring addr (match-beginning 1) (match-end 1))
                        (substring addr (match-beginning 2) (match-end 2))))
               ((string-match 
"\\`\\([^@]+\\)\\(@peace\\.co\\.nz\\|@[^.]+\\)?\\'"
                              addr)
                (concat (substring addr (match-beginning 1) (match-end 1))
                        "@peace.com"))
               (t addr))))

;;{{{ Uniquify Buffer Names
(require 'uniquify)
(setq uniquify-buffer-name-style 'post-forward)
;;}}}

(require 'message)
(global-set-key "\C-cr" 'message-reply)

(custom-set-variables
  ;; custom-set-variables was added by Custom -- don't edit or cut/paste it!
  ;; Your init file should contain only one such instance.
 '(Info-additional-directory-list (quote ("/usr/shared-apps/teTeX/info" 
"~/info")))
 '(bbdb-auto-notes-alist (quote (("Organisation" (".*" company 0)) 
("Newsgroups" ("[^,]+" newsgroups 0)) ("User-Agent" (".*" mailer 0)) 
("X-Mailer" (".*" mailer 0)) ("X-Newsreader" (".*" mailer 0)))))
 '(bbdb-elided-display t)
 '(bbdb-ignore-most-messages-alist (quote (("To" . "rohan") ("From" . 
"\\.peace\\."))))
 '(bbdb-north-american-phone-numbers-p nil)
 '(bbdb-notice-auto-save-file t)
 '(bbdb-notice-hook (quote (bbdb-auto-notes-hook)))
 '(bbdb-offer-save (quote savenoprompt))
 '(bbdb-pop-up-target-lines 3)
 '(bbdb-send-mail-style (quote vm))
 '(bbdb-user-mail-names "rohan")
 '(bbdb/gnus-score-default nil)
 '(bbdb/mail-auto-create-p (quote bbdb-ignore-most-messages-hook))
 '(bbdb/vm-update-records-mode (quote (if (vm-new-flag msg) (quote annotating) 
(quote searching))))
 '(browse-url-browser-function (quote browse-url-netscape) t)
 '(cperl-electric-keywords t)
 '(cperl-electric-linefeed t)
 '(cperl-electric-parens t)
 '(ell-goto-addr t t)
 '(enable-multibyte-characters nil)
 '(facemenu-unlisted-faces (quote (ediff-odd-diff-face-Ancestor 
ediff-odd-diff-face-C ediff-odd-diff-face-B ediff-odd-diff-face-A 
ediff-even-diff-face-Ancestor ediff-even-diff-face-C ediff-even-diff-face-B 
ediff-even-diff-face-A ediff-fine-diff-face-Ancestor ediff-fine-diff-face-C 
ediff-fine-diff-face-B ediff-fine-diff-face-A ediff-current-diff-face-Ancestor 
ediff-current-diff-face-C ediff-current-diff-face-B ediff-current-diff-face-A 
holiday-face calendar-today-face diary-face modeline region secondary-selection 
highlight scratch-face "^font-lock-" "^gnus-" "^message-" "^ediff-" "^term-" 
"^vc-" "^widget-" "^custom-" "^vm-" "^w3-")))
 '(font-lock-support-mode (quote lazy-lock-mode))
 '(ftp-program "ftp")
 '(global-font-lock-mode t nil (font-lock))
 '(gnus-build-sparse-threads (quote some))
 '(gnus-cache-enter-articles (quote (ticked dormant unread)))
 '(gnus-cacheable-groups "^nntp")
 '(gnus-home-score-file (quote (("peace" "peace.SCORE") ("pyramid" 
"pyramid.SCORE") ("povray" "povray.SCORE") ("mozilla" "mozilla.SCORE") 
("weblogic" "weblogic.SCORE") ("os2" "os2.SCORE"))))
 '(gnus-novice-user nil)
 '(gnus-save-score t)
 '(gnus-score-find-score-files-function (quote (gnus-score-find-hierarchical 
bbdb/gnus-score)))
 '(gnus-secondary-select-methods (quote ((nntp "pyramid.sjgames.com") (nntp 
"news.povray.org") (nntp "news.mozilla.org") (nntp "newsgroups.bea.com") (nntp 
"news.stardock.com"))))
 '(gnus-summary-gather-subject-limit (quote fuzzy))
 '(gnus-summary-line-format "%ub%U%R%z%I%(%[%4L: %-20,20n%]%) %s
")
 '(gnus-summary-thread-gathering-function (quote 
gnus-gather-threads-by-references))
 '(gnus-suppress-duplicates t)
 '(gnus-thread-sort-functions (quote (gnus-thread-sort-by-number 
gnus-thread-sort-by-date gnus-thread-sort-by-subject gnus-thread-sort-by-author 
gnus-thread-sort-by-score gnus-thread-sort-by-total-score)))
 '(gnus-use-adaptive-scoring (quote (line)))
 '(gnus-use-cache t)
 '(gnus-use-demon t)
 '(gnus-use-nocem t)
 '(ispell-program-name "aspell")
 '(lpr-switches (quote ("-dgreenlaser")) t)
 '(mail-setup-hook (quote (bbdb-define-all-aliases)))
 '(mail-signature (quote (progn (insert "

-- 
") (yow t))))
 '(message-mode-hook (quote (bbdb-insinuate-message)))
 '(message-setup-hook (quote (auto-fill-mode bbdb-define-all-aliases 
flyspell-mode)))
 '(mm-discouraged-alternatives (quote ("text/html")))
 '(ps-font-size (quote (7 . 6)))
 '(ps-lpr-command "lp")
 '(ps-lpr-switches (quote ("-dgreylaser")))
 '(ps-paper-type (quote a4) t)
 '(ps-printer-name nil)
 '(speedbar-visiting-file-hook (quote (imenu-add-menubar-index)))
 '(tinymail-:complete-key-hook (quote (tinymail-complete-bbdb 
tinymail-complete-everything tinymail-complete-simple 
tinymail-complete-headers-nothing-found tinymail-complete-abbrevs 
tinymail-complete-guest-packages)))
 '(tinymail-:display-time nil)
 '(tool-bar-mode nil nil (tool-bar))
 '(uniquify-buffer-name-style (quote post-forward-angle-brackets) nil 
(uniquify))
 '(url-be-asynchronous t)
 '(url-cookie-file "/home/peace/rohanh/.w3/cookies")
 '(url-global-history-file "/home/peace/rohanh/.w3/history")
 '(url-honor-refresh-requests (quote (quote ask)))
 '(url-keep-history t)
 '(visible-bell t)
 '(vm-auto-get-new-mail nil t)
 '(w3-debug-html (quote style))
 '(w3-horizontal-rule-char nil)
 '(w3-hotlist-file "/home/peace/rohanh/.w3/bookmarks")
 '(w3-print-command "lp")
 '(w3-use-terminal-glyphs nil))
(custom-set-faces
  ;; custom-set-faces was added by Custom -- don't edit or cut/paste it!
  ;; Your init file should contain only one such instance.
 )

; -------------------- Mozilla --------------------

(defcustom browse-url-mozilla-program "mozilla"
  "The name by which to invoke Mozilla."
  :type 'string
  :group 'browse-url)

(defcustom browse-url-mozilla-arguments nil
  "A list of strings to pass to Mozilla as arguments."
  :type '(repeat (string :tag "Argument"))
  :group 'browse-url)

(defcustom browse-url-mozilla-startup-arguments browse-url-mozilla-arguments
  "A list of strings to pass to Mozilla when it starts up.
Defaults to the value of `browse-url-mozilla-arguments' at the time
`browse-url' is loaded."
  :type '(repeat (string :tag "Argument"))
  :group 'browse-url)

(defun browse-url-mozilla (url &optional new-window)
  "Ask the Mozilla WWW browser to load URL.

Default to the URL around or before point.  The strings in variable
`browse-url-mozilla-arguments' are also passed to Mozilla.

When called interactively, if variable `browse-url-new-window-flag' is
non-nil, load the document in a new Mozilla window, otherwise use a
random 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 "URL: "))
  ;; URL encode any `confusing' characters in the URL.  This needs to
  ;; include at least commas; presumably also close parens.
  (while (string-match "[,)]" url)
    (setq url (replace-match
               (format "%%%x" (string-to-char (match-string 0 url))) t t url)))
  (let* ((process-environment (browse-url-process-environment))
         (process (apply 'call-process
                         ;(concat "mozilla " url) nil
                         browse-url-mozilla-program nil nil nil
                         (append
                          browse-url-mozilla-arguments
                          (if (eq window-system 'w32)
                              (list url)
                            (append
                             (if new-window '("-noraise"))
                             (list "-remote"
                                   (concat "openURL(" url
                                           (if (browse-url-maybe-new-window
                                                new-window)
                                               ",new-window")
                                           ")"))))))))))
;    (set-process-sentinel process
;                         `(lambda (process change)
;                               (browse-url-mozilla-sentinel process ,url)))))

(setq browse-url-browser-function 'browse-url-mozilla)

;(defun browse-url-mozilla-sentinel (process url)
;  "Handle a change to the process communicating with Mozilla."
;  (or (eq (process-exit-status process) 0)
;      (let* ((process-environment (browse-url-process-environment)))
;       ;; Mozilla not running - start it
;       (message "Starting Mozilla...")
;       (apply 'start-process (concat "mozilla" url) nil
;              browse-url-mozilla-program
;              (append browse-url-mozilla-startup-arguments (list url))))))
----------------------------------------------------------------------

and .vm:

----------------------------------------------------------------------
(setq vm-folder-directory "~/Mail/")
(setq vm-crash-box "~/Mail/.crashbox")
(setq vm-preview-lines nil)
(setq user-mail-address "rohan.hart@peace.com")
(setq vm-reply-subject-prefix "Re: ")
(setq vm-forwarding-subject-format "Fwd: %s")
(setq vm-reply-ignored-addresses 
'("rohan\\([^@]*\\|\\(h\\|.hart\\)@peace.*\\)"))
(setq vm-summary-format "%n %*%a %-17.17UB %-3.3m %2d %4l/%-5c %I\"%s\"\n")
(setq vm-spool-files '(("~/Mail/inbox"
                        "imap:imap.peace.co.nz:143:INBOX:login:rohanh:*"
                        "~/Mail/.crashbox.imap")))
(setq vm-primary-inbox "~/Mail/inbox")
(setq vm-mail-check-interval 600)
(add-hook 'vm-mail-mode-hook 'auto-fill-mode)
(add-hook 'vm-mail-mode-hook 'flyspell-mode)

(setq vm-auto-folder-case-fold-search t)
(setq vm-auto-folder-alist '(("From:"
                              ("loish" . "lois.gz")
                              ("variel" . "chris.gz")
                              ("prhart" . "philip.gz")
                              ("TechnoSphere" . "techno.gz")
                              ("word@M-W.COM" . "word.gz")
                              ("word@MERRIAM-WEBSTER.COM" . "word.gz")
                              ("warpcast" . "os2.gz")
                              ("NewWorlds" . "arsmagica.gz")
                              ("Kim De Bazin" . "kim.gz"))
                             ("Sender:"
                              ("@cold.org" . "cold.gz")
                              ("owner-ars-magica" . "arsmagica.gz")
                              ("owner-nobilis@nocturne.org" . "nobilis.gz")
                              ("gcc-announce-owner" . "gcc.gz")
                              ("owner-cold" .  "cold.gz"))
                             ("To:"
                              ("ArsM5-Ideas" . "arsmagica.gz")
                              ("ccm" . "ccm.gz"))))
(add-hook 'vm-arrived-messages-hook 'vm-auto-archive-messages)
(setq vm-delete-after-archiving t)
(setq mail-signature t)
(setq mail-archive-file-name "~/Mail/sent.gz")

(setq vm-mime-base64-decoder-program "base64-decode")
(setq vm-mime-base64-encoder-program "base64-encode")
(setq vm-mime-qp-decoder-program "qp-decode")
(setq vm-mime-qp-encoder-program "qp-encode")

(setq vm-honor-mime-content-disposition t)
(setq vm-infer-mime-types t)

(setq frame-title-format '(multiple-frames ("%b" 
                                            (vm-spooled-mail-waiting " Mail")) 
                           ("" invocation-name "@" system-name)))

;; this needs to be here to insinuate itself correctly
(bbdb-insinuate-vm)