Where does gnus-truncate-string come from?

Where does gnus-truncate-string come from?

[Nils Ackermann]

[-- Attachment #1: Type: text/plain, Size: 167 bytes --]

Gnus 5.8.2
Emacs 20.3.1

Upon entering most groups I get an error with the following backtrace
(where the argument to gnus-summary-prepare-threads is cout out here):


[-- Attachment #2: backtrace --]
[-- Type: application/octet-stream, Size: 1451 bytes --]

Signaling: (void-function gnus-truncate-string)
  (gnus-truncate-string gnus-tmp-name 20)
  (if (> (string-width gnus-tmp-name) 20) (gnus-truncate-string gnus-tmp-name 20) gnus-tmp-name)
  (format "%c%4d: %-20s%c" gnus-tmp-opening-bracket gnus-tmp-lines (if (> ... 20) (gnus-truncate-string gnus-tmp-name 20) gnus-tmp-name) gnus-tmp-closing-bracket)
  (insert (format "%c%4d: %-20s%c" gnus-tmp-opening-bracket gnus-tmp-lines (if ... ... gnus-tmp-name) gnus-tmp-closing-bracket))
  (progn (insert (format "%c%4d: %-20s%c" gnus-tmp-opening-bracket gnus-tmp-lines ... gnus-tmp-closing-bracket)) (point))
  (gnus-put-text-property (point) (progn (insert ...) (point)) gnus-mouse-face-prop gnus-mouse-face)
  (progn (insert gnus-tmp-unread gnus-tmp-replied gnus-tmp-score-char gnus-tmp-indentation) (gnus-put-text-property (point) (progn ... ...) gnus-mouse-face-prop gnus-mouse-face) (insert " " gnus-tmp-subject-or-nil "\n"))
  eval((progn (insert gnus-tmp-unread gnus-tmp-replied gnus-tmp-score-char gnus-tmp-indentation) (gnus-put-text-property (point) (progn ... ...) gnus-mouse-face-prop gnus-mouse-face) (insert " " gnus-tmp-subject-or-nil "\n")))
  gnus-summary-prepare-threads([...])
  gnus-summary-prepare()
  gnus-summary-read-group-1("nnml:ding-list" nil t nil nil nil)
  gnus-summary-read-group("nnml:ding-list" nil t nil nil nil nil)
  gnus-group-read-group(nil t)
  gnus-group-select-group(nil)
  call-interactively(gnus-group-select-group)

[-- Attachment #3: Type: text/plain, Size: 215 bytes --]



I have searched the gnus elisp files for this function but couldn't
find it.  It seems to be present in older versions of gnus.

This is my load-path, with gnus 5.8.2 files residing in
/home/nils/lib/elisp/gnus.


[-- Attachment #4: loadpath --]
[-- Type: application/octet-stream, Size: 1577 bytes --]

load-path's value is 
("/home/nils/lib/elisp/gnus" "/home/nils/lib/elisp" "/usr/local/share/emacs/20.3/etc//usr/local/share/emacs/site-lisp/auctex/" "/usr/local/share/emacs/20.3/site-lisp" "/usr/local/share/emacs/site-lisp" "/usr/local/share/emacs/site-lisp/VM" "/usr/local/share/emacs/site-lisp/apel" "/usr/local/share/emacs/site-lisp/auctex" "/usr/local/share/emacs/site-lisp/bbdb" "/usr/local/share/emacs/site-lisp/elib" "/usr/local/share/emacs/site-lisp/flim" "/usr/local/share/emacs/site-lisp/term" "/usr/local/share/emacs/site-lisp/tm" "/usr/local/share/emacs/site-lisp/w3" "/usr/local/share/emacs/site-lisp/VM/pixmaps" "/usr/local/share/emacs/site-lisp/auctex/style" "/usr/local/share/emacs/site-lisp/tm/mel" "/usr/local/share/emacs/site-lisp/tm/mu" "/usr/local/share/emacs/site-lisp/tm/tm" "/usr/local/share/emacs/20.3/leim" "/usr/local/share/emacs/20.3/lisp" "/usr/local/share/emacs/20.3/lisp/textmodes" "/usr/local/share/emacs/20.3/lisp/progmodes" "/usr/local/share/emacs/20.3/lisp/play" "/usr/local/share/emacs/20.3/lisp/mail" "/usr/local/share/emacs/20.3/lisp/language" "/usr/local/share/emacs/20.3/lisp/international" "/usr/local/share/emacs/20.3/lisp/emulation" "/usr/local/share/emacs/20.3/lisp/emacs-lisp" "/usr/local/share/emacs/20.3/lisp/calendar")


Documentation:
*List of directories to search for files to load.
Each element is a string (directory name) or nil (try default directory).
Initialized based on EMACSLOADPATH environment variable, if any,
otherwise to default specified by file `paths.h' when Emacs was built.

You can customize this variable.

[-- Attachment #5: Type: text/plain, Size: 20 bytes --]


This is my .gnus:


[-- Attachment #6: .gnus --]
[-- Type: application/octet-stream, Size: 847 bytes --]

;(require 'nnir)
(setq nnir-search-engine 'glimpse)


(setq mail-sources
	'((directory :path (expand-file-name "~/.incoming/") :suffix ".spool" )))

(setq gnus-secondary-select-methods
           '((nnml "")))

(setq nnml-directory "~/Mail")
(setq nnml-get-new-mail t)

(setq gnus-thread-hide-subtree t)
(setq gnus-summary-gather-subject-limit 'fuzzy)
(setq gnus-fetch-old-headers 'some)
(setq gnus-build-sparse-threads nil)
(setq gnus-summary-thread-gathering-function 'gnus-gather-threads-by-subject)
(setq gnus-summary-make-false-root 'adopt)

(setq gnus-strict-mime t)

(setq message-fcc-handler-function 'message-output)
(setq gnus-message-archive-group 
	'((downcase (concat "sent-" (format-time-string "%b-%Y" (current-time))))))
(setq gnus-message-archive-method '(nnml ""))

(setq gnus-use-cache t)
(setq gnus-uncacheable-groups "^nnml")

[-- Attachment #7: Type: text/plain, Size: 14 bytes --]



Thanks
Nils

Re: Where does gnus-truncate-string come from?

[Katsumi Yamaoka]

>>>>> In <861z8o9r4u.fsf@klio.math.uni-giessen.de> 
>>>>>	Nils Ackermann <Nils.Ackermann@math.uni-giessen.de> wrote:

Nils> X-Mailer: Semi-gnus 6.8.18 (based on Gnus 5.6.43; for SEMI 1.8,
Nils> Gnus 5.8.2
Nils> Emacs 20.3.1

Nils> Upon entering most groups I get an error with the following
Nils> backtrace (where the argument to gnus-summary-prepare-threads is
Nils> cout out here):

Nils> Signaling: (void-function gnus-truncate-string)

It seems a wreck of Semi-gnus in your .newsrc.eld file.
Please try

M-x remove-semi-gnus-stuff-from-quick-startup-file

and then restart Emacs and Gnus 5.8.  Where the function definition is
below:

(defvar gnus-startup-file "~/.newsrc")

(defun remove-semi-gnus-stuff-from-quick-startup-file ()
  (interactive)
  (let ((eld (concat gnus-startup-file ".eld"))
	(backup (concat gnus-startup-file ".eld.backup")))
    (or (file-exists-p backup)
	(copy-file eld backup))
    (with-temp-buffer
      (let ((coding-system-for-read 'binary)
	    (coding-system-for-write 'binary))
	(insert-file-contents eld)
	(if (search-forward "(setq gnus-format-specs" nil t)
	    (progn
	      (delete-region (goto-char (match-beginning 0))
			     (progn (forward-list) (point)))
	      (write-region (point-min) (point-max) eld)))))))
-- 
Katsumi Yamaoka <yamaoka@jpl.org>